Vba delete all shape in Excel
To do it in Excel, here is the answer:
- Option Explicit
- Sub DeleteShapes()
- Dim shp As Shape
- ''
- 'Loop through all Shapes in ActiveSheet and delete each one.
- For Each shp In ActiveSheet.Shapes
- shp.Delete
- Next shp
- End Sub
Description:
a) Lines 6-8 - Loop through all Shapes in ActiveSheet and delete each Shape.