+ Reply to Thread
Results 1 to 2 of 2

Use a loop to create multiple Charts - Suggestions ?

  1. #1
    Registered User
    Join Date
    07-28-2006
    Posts
    1

    Use a loop to create multiple Charts - Suggestions ?

    I am running a loop in VBA which is supposed to draw a new chart for every (2) column(s) of data.

    However, I am not sure how to make it "jump" from column to column.
    Part of my program (does not include the "For i=1 to3 e.t.c.) is below. The high-lighted part is the part I am trying to change. Instead of a fixed reference I wanted to get the data I have in the underlined part. Any suggestions???


    Sheets("OUTPUT All data").Select

    Range(Cells(11, 2 * i), Cells(11, 2 * i + 1)).Select Range(Selection, Selection.End(xlDown)).Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("OUTPUT All data").Range(Cells(11, 2 * i), Cells(11, 2 * i + 1)).Select
    Range(Selection, Selection.End(xlDown)).Select_ , PlotBy:=xlColumns
    'ActiveChart.SetSourceData Source:=Sheets("OUTPUT All data").Range("B11:C316") _ , PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlTop
    ActiveChart.ChartArea.Select
    Selection.AutoScaleFont = True

  2. #2
    Jon Peltier
    Guest

    Re: Use a loop to create multiple Charts - Suggestions ?

    Try this:

    ActiveChart.SetSourceData Source:=Sheets("OUTPUT All data") _
    .Range(Cells(11, 2 * i), Cells(11, 2 * i + 1).End(xlDown)), _
    PlotBy:=xlColumns

    - Jon
    -------
    Jon Peltier, Microsoft Excel MVP
    Tutorials and Custom Solutions
    http://PeltierTech.com
    _______


    "APOEL" <APOEL.2bob5t_1154120109.5196@excelforum-nospam.com> wrote in
    message news:APOEL.2bob5t_1154120109.5196@excelforum-nospam.com...
    >
    > I am running a loop in VBA which is supposed to draw a new chart for
    > every (2) column(s) of data.
    >
    > However, I am not sure how to make it "jump" from column to column.
    > Part of my program (does not include the "For i=1 to3 e.t.c.) is below.
    > The *high-lighted *part is the part I am trying to change. Instead of a
    > fixed reference I wanted to get the data I have in the
    > _underlined__part. Any suggestions???
    >
    >
    > Sheets("OUTPUT All data").Select
    >
    > _Range(Cells(11,_2_*_i),_Cells(11,_2_*_i_+_1)).Select_
    > Range(Selection, Selection.End(xlDown)).Select
    > Charts.Add
    > ActiveChart.ChartType = xlLineMarkers
    > ActiveChart.SetSourceData Source:=Sheets("OUTPUT All
    > data").Range(Cells(11, 2 * i), Cells(11, 2 * i + 1)).Select
    > Range(Selection, Selection.End(xlDown)).Select_ ,
    > PlotBy:=xlColumns
    > 'ActiveChart.SetSourceData Source:=Sheets("OUTPUT All
    > data").*Range("B11:C316") _* , PlotBy:=xlColumns
    > ActiveChart.Location Where:=xlLocationAsNewSheet
    > ActiveChart.HasLegend = True
    > ActiveChart.Legend.Select
    > Selection.Position = xlTop
    > ActiveChart.ChartArea.Select
    > Selection.AutoScaleFont = True
    >
    >
    > --
    > APOEL
    > ------------------------------------------------------------------------
    > APOEL's Profile:
    > http://www.excelforum.com/member.php...o&userid=36903
    > View this thread: http://www.excelforum.com/showthread...hreadid=566172
    >




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1