Deleting shapes

[Guest]

How can I programatically select and delete x number of shapes in a sheet?

I tried this with no luck:

ActiveSheet.Shapes.Select
Selection.Delete

Thanks
The Doctor

 

[Loomah]

Doc
This could depend on how many you want to delete or if there are only
certain types of shape to delete

To delete all, try:-
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next

To delete by name/type try this for AutoShapes only, assuming shapes haven't
been renamed:-
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Name Like "AutoShape*" Then
shp.Delete
End If
Next

Happy Friday
;-)