W
Will
Hi,
I have a large number of points I want to plot on a scatter graph with
named series and I don't want to do this manually. I have tried the
following approach unsuccessfully. I have searched this forum and
previous advice does nto seem to work.
Any help much appreciated.
Thanks,
Will
Dim counter As Integer
counter = 7
Do Until counter = 133
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(counter).XValues = "=Sheet1!
R(counter)C3"
ActiveChart.SeriesCollection(counter).Values = "=Sheet1!
R(counter)C2"
ActiveChart.SeriesCollection(counter).Name = "=Sheet1!
R(counter)C1"
counter = counter + 1
Loop
End Sub
I have a large number of points I want to plot on a scatter graph with
named series and I don't want to do this manually. I have tried the
following approach unsuccessfully. I have searched this forum and
previous advice does nto seem to work.
Any help much appreciated.
Thanks,
Will
Dim counter As Integer
counter = 7
Do Until counter = 133
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(counter).XValues = "=Sheet1!
R(counter)C3"
ActiveChart.SeriesCollection(counter).Values = "=Sheet1!
R(counter)C2"
ActiveChart.SeriesCollection(counter).Name = "=Sheet1!
R(counter)C1"
counter = counter + 1
Loop
End Sub