Delete all shapes : Shapes « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Shapes

Delete all shapes

 
Private Sub btnDeleteShapes_Click()
  Dim s As Shape
  For Each s In ActiveSheet.Shapes
    If s.Type = msoAutoShape Or s.Type = msoLine Then s.Delete
  Next
End Sub








Related examples in the same category

1.Add a rectangle
2.Display auto shapes
3.Add a new shape
4.Draw a star