Deleting Auto_Shapes

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hi Everyone
I created a staircase calculator using AutoShapes (Triangles).
I need a macro to erase them.I can't use "Select All" because
it will erase my macro buttons.They are numbered but that changes
every time I use it.
Could I use something like Range "B3:P11 delete Shapes".
I need Help please.
Regards
John
 
After testing. Just change last 2 comment lines in last macro

Sub AddShapeTriangle()
ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, _
213.96, 115.47, 18.34, 29.89).Select
End Sub

Sub DeleteShapeIfTriangle()
For Each sh In ActiveSheet.Shapes
'MsgBox sh.Name
'MsgBox sh.AutoShapeType
If sh.AutoShapeType = 7 Then MsgBox sh.Name
'If sh.AutoShapeType = 7 Then sh.Delete 'MsgBox sh.Name

Next sh
End Sub
 
Back
Top