Deleting shape series and trendlines
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 |
Deleting shape series and trendlines
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 -- Don Guillett SalesAid Software "Mika" wrote in message ... 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 |
Deleting shape series and trendlines
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/ _______ Don Guillett wrote: 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 |
Deleting shape series and trendlines
It's great when you have THE charting expert around. Thanks Jon
-- Don Guillett SalesAid Software "Jon Peltier" wrote in message ... 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/ _______ Don Guillett wrote: 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 |
All times are GMT +1. The time now is 09:52 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com