Home » Blogs » Vishesh's blog

Deleting all charts & shapes on a sheet

Vishesh's picture
Submitted by Vishesh on 9 July, 2011 - 21:07
To delete all charts 
sub DeleteAllCharts()
Sheet1.ChartObjects.delete
End Sub
To delete all shapes (this includes charts as well) 
sub DeleteAllShapes()
Sheet1.Shapes.SelectAll
Selection.Delete
End Sub
»