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
- 23522 reads
Recent comments
5 years 27 weeks ago
6 years 13 weeks ago
6 years 25 weeks ago
6 years 28 weeks ago
6 years 29 weeks ago
6 years 34 weeks ago
6 years 43 weeks ago
6 years 43 weeks ago
6 years 43 weeks ago
6 years 43 weeks ago