Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating Multiple Graphs in Excel 2003
I am trying to create a graph for each row of a worksheet, by creating
a macro. Using variables, and a FOR, NEXT statement, I can select the title row and the data row for each row, and rename each chart produced. But I cannot replace the original selection range with the variable range "myMultipleRange", in the chart part of the macro. Does anyone have any idea how to do this? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating Multiple Graphs in Excel 2003
Your posting is vary vague, but I would suggest taking an existing chart,
turn on the macro recorder, then manually change the source data in a similar fashion to what your are attempting to do programmatically. Then look at the code and see how you might adapt it to suite your needs. -- Regards, Tom Ogilvy "Don" wrote: I am trying to create a graph for each row of a worksheet, by creating a macro. Using variables, and a FOR, NEXT statement, I can select the title row and the data row for each row, and rename each chart produced. But I cannot replace the original selection range with the variable range "myMultipleRange", in the chart part of the macro. Does anyone have any idea how to do this? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating Multiple Graphs in Excel 2003
Post the piece of code you were troubled with.
Not knowing what that looks like, here's code I posted a while back for creating one pie chart per row of data: Sub OnePieChartPerRow() Dim rngChartData As Range Dim iRowIx As Integer, iRowCt As Integer, iColCt As Integer Dim oChart As ChartObject Dim NewSrs As Series If Not TypeName(Selection) = "Range" Then Exit Sub Set rngChartData = Selection iRowCt = rngChartData.Rows.Count iColCt = rngChartData.Columns.Count For iRowIx = 2 To iRowCt Set oChart = ActiveSheet.ChartObjects.Add(Top:=25 + (iRowIx - 2) * 200, _ Height:=200, Left:=450, Width:=300) Set NewSrs = oChart.Chart.SeriesCollection.NewSeries oChart.Chart.ChartType = xlPie With oChart.Chart.PlotArea ..Border.LineStyle = xlNone ..Interior.ColorIndex = xlNone End With With NewSrs '' Name in first column ..Name = rngChartData.Cells(iRowIx, 1) ..Values = rngChartData.Cells(iRowIx, 2).Resize(1, iColCt - 1) '' XValues in first row ..XValues = rngChartData.Cells(1, 2).Resize(1, iColCt - 1) End With Next End Sub - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Don" wrote in message ups.com... I am trying to create a graph for each row of a worksheet, by creating a macro. Using variables, and a FOR, NEXT statement, I can select the title row and the data row for each row, and rename each chart produced. But I cannot replace the original selection range with the variable range "myMultipleRange", in the chart part of the macro. Does anyone have any idea how to do this? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Trouble with XY Scatter graphs Excel 2003/Office 2003 | Excel Discussion (Misc queries) | |||
Creating Multiple Graphs at a Time | Charts and Charting in Excel | |||
Creating Circles on Excel Graphs | Excel Worksheet Functions | |||
Question About Creating Graphs in Excel 2003 | Charts and Charting in Excel | |||
Need Help creating multiple graphs through coding | Excel Programming |