vba delete all shape in Excel
Q190. In Excel, how can I delete all shapes in a WorkSheet?
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
- Next shp
- End Sub
a) Lines 6-8 - Loop through all Shapes in ActiveSheet and delete each Shape.