Extra series in charts when created using vba
 

Hello. I am having trouble with charting from vba. I used the macro
recorder to generate code to creat charts, and am only trying to create a
single series. Sometimes additional series will show up on the chart, either
blank ones, or sometimes series with only yvalues. Any help would be greatly
appreciated. Here is the code I am using for the charts:

(i is an integer)

Dim xrng As Range
Dim yrng As Range

Set xrng = Worksheets("sheet1").Range("A5:A" & i - 1)
Set yrng = Worksheets("sheet1").Range("B5:B" & i - 1)

Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = xrng
ActiveChart.SeriesCollection(1).Values = yrng
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

Extra series in charts when created using vba
 

The chart plots whatever data is in the current region of the active cell,
so you may start with several series.

To account for this, put a loop like this before adding any series:

Do Until ActiveChart.SeriesCollection.Count = 0
ActiveChart.SeriesCollection(1).Delete
Loop

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


"JacksonRJones" wrote in message
...
Hello. I am having trouble with charting from vba. I used the macro
recorder to generate code to creat charts, and am only trying to create a
single series. Sometimes additional series will show up on the chart,
either
blank ones, or sometimes series with only yvalues. Any help would be
greatly
appreciated. Here is the code I am using for the charts:

(i is an integer)

Dim xrng As Range
Dim yrng As Range

Set xrng = Worksheets("sheet1").Range("A5:A" & i - 1)
Set yrng = Worksheets("sheet1").Range("B5:B" & i - 1)

Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = xrng
ActiveChart.SeriesCollection(1).Values = yrng
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With