Deleting all charts & shapes on a sheet

To delete all charts
To delete all shapes (this includes charts as well)
sub DeleteAllCharts() Sheet1.ChartObjects.delete End Sub
sub DeleteAllShapes() Sheet1.Shapes.SelectAll Selection.Delete End Sub
»
- Vishesh's blog
- Login or register to post comments
- 23766 reads
Recent comments
6 years 3 weeks ago
6 years 41 weeks ago
7 years 1 week ago
7 years 3 weeks ago
7 years 5 weeks ago
7 years 10 weeks ago
7 years 18 weeks ago
7 years 19 weeks ago
7 years 19 weeks ago
7 years 19 weeks ago