Deleting shape series and trendlines

M

Mika

I'm trying to delete all 20 series and trendlines of a shape. My code
doesn't delete them. What is going wrong?

ActiveSheet.ChartObjects("Shape 1").Activate

For i = 1 To 20
Err.Clear
ActiveChart.SeriesCollection(1).Delete
Err.Clear
Next i

Thanks,
Mika
 
D

Don Guillett

Seems like it would be easier to cut the chart and start over but try this

Sub deleteseries()
ActiveSheet.ChartObjects("Chart 1").Activate
On Error Resume Next
For i = 20 To 1 Step -1
ActiveChart.SeriesCollection(i).Delete
Next
End Sub
 
D

Don Guillett

Here's another if you only have ONE chart and you don't know how many series
to start with
Sub deleteseriescount()
ActiveSheet.ChartObjects(1).Activate
x = ActiveChart.SeriesCollection.Count
For i = x To 1 Step -1
ActiveChart.SeriesCollection(i).Delete
Next
End Sub
 
J

Jon Peltier

If you don't know how many series, use this. Also, no need to activate
the chart.

Sub DeleteSeries()
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection
Do Until .Count = 0
.Item(1).Delete
Loop
End With
End Sub

If the chart is already active, use this:

Sub DeleteSeries()
With ActiveChart.SeriesCollection
Do Until .Count = 0
.Item(1).Delete
Loop
End With
End Sub

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