| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.charting
|
|||
|
|||
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)).Sel ect_ 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 Whe=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 |
|
#2
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
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" wrote in message ... 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)).Sel ect_ 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 Whe=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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Print all charts in a workbook (multiple worksheets) | Charts and Charting in Excel | |||
| Help! How to print multiple charts on the same page | Excel Discussion (Misc queries) | |||
| Pivot Table--How can I create from multiple sheets? | New Users to Excel | |||
| How do i auto create multiple files from 1 with multiple sheets | Excel Worksheet Functions | |||
| Macro for multiple charts | Excel Worksheet Functions | |||
Linear Mode
