Charts

  • Thread starter Thread starter Sverrir
  • Start date Start date
S

Sverrir

Hi,

I just recorded a simple macro that is supposed to deleta
a series of data from a chart. The thing is that
sometimes I have a number of series on the same chart and
I was to delete them with only one macro.

Sub Hreinsa()

ActiveSheet.ChartObjects("Chart 10").Activate
ActiveChart.ChartArea.Select
Application.Run "OnGenericSetSheetActive"
ActiveChart.SeriesCollection(1).Delete
End Sub

How can I delete all the series on the chart. Hope anyone
can help.

Thanks!
 
This will delete all the series from the active chart:

Sub DeleteSeries()
If Not ActiveChart Is Nothing Then
ActiveChart.SeriesCollection.Delete
End If
End Sub

- Jon
 
Oops, spoke too soon. You need to loop through the series:

Sub DeleteSeriesCollection()
Dim i As Integer
If Not ActiveChart Is Nothing Then
For i = ActiveChart.SeriesCollection.Count To 1 Step -1
ActiveChart.SeriesCollection(i).Delete
Next
End If
End Sub

- Jon
 
Back
Top