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
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______
Sverrir wrote:
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!