Solved: How to delete A LOT of autoshapes

[milt8]

I have a worksheet with a lot of diamond-shaped autoshapes all over it. There are so many that deleting them manually one-at-a-time would take a long time. I would like to do a macro that will get rid of all of them. I tried:

worksheets(8).Shapes(msoShapesDiamond).Select
Selection.delete

But that did not work. One problem is I can't figure out how to name or identify these shapes. They came from the Autoshapes, Basic Shapes toolbar. I' m only guessing at "msoShapesDiamond."

Any help would be appreciated. Thanks.

milt8

[austenr]

Try this:

Sub DeleteShapes()

For Each Sh In ActiveSheet.Shapes
Sh.Delete
Next Sh
End Sub

[benny]

Try This

Sub Pic_Away()
Dim n As Integer
For n = 2 To Sheets.Count
Worksheets(n).Select
Worksheets(n).Shapes.SelectAll
Selection.Delete
Next n
End Sub

[milt8]

Thanks you for the replies to my post. There are some autoshapes on the worksheet, e.g., ovals and rectangles, that I do not want to delete. I just want to delete the diamonds. Is there a way to do this?

If not, I'll try the suggestions for deleting all shapes and then put back the ones I want.

Thanks.

milt8

[milt8]

It would also work for me if the deletions of all shapes could be restricted to the range B11:BC143. But I can't seem to do this. Any help will be appreciated.

milt8

[johnske]

There are some autoshapes on the worksheet, e.g., ovals and rectangles, that I do not want to delete. I just want to delete the diamonds. Is there a way to do this?Sub DeleteDiamondShapes()'for the whole sheet
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.AutoShapeType = msoShapeDiamond Then
Shp.Delete
End If
Next
End Sub

[milt8]

THANK YOU! This is exactly what I needed.

milt8