Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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