Plotting a number of single point series on a scatter graph

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
 
J

Jon Peltier

ActiveChart.SeriesCollection(counter).XValues = "=Sheet1!R" & counter & "C3"

- Jon
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top