P
Patrick C. Simonds
Is there any way to find any shapes that have been inserted to a worksheet
and then delete them?
and then delete them?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
D
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
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub
'or
Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub
D
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
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
R
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---
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---
P
Peter T
No need for the loop, simply
Sheets("Sheet1").DrawingObjects.Delete
(won't delete comments or filter arrows)
Regards,
Peter T
Sheets("Sheet1").DrawingObjects.Delete
(won't delete comments or filter arrows)
Regards,
Peter T