Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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