Finding a Shape

[Patrick C. Simonds]

Is there any way to find any shapes that have been inserted to a worksheet
and then delete them?

 

[Don Guillett]

Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub
'or
Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

 

[Dave Peterson]

Be careful with shapes. You may not want to delete them all.

There are lots of shapes that you may want to keep (comments, autofilter arrows,
datavalidation arrows).

Ron de Bruin has lots of tips here:
http://www.rondebruin.nl/controlsobjectsworksheet.htm

 

[ryguy7272]

You can try this:
Sub CleanRectangles()

Dim i As Integer
i = 1
Do Until i > 7
Sheets("Sheet1").Rectangles.Delete
Sheets("Sheet1").Lines.Delete
'etc., etc., etc.,
i = i + 1
Loop

End Sub

Regards,
Ryan---

 

[Peter T]

No need for the loop, simply

Sheets("Sheet1").DrawingObjects.Delete

(won't delete comments or filter arrows)

Regards,
Peter T