How can I delete several Autoshapes from a speadsheet at once?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a old Spreadsheet form. It has several autoshape objects in it. They
are clear and without borders. The form has been copied several times and
they are now in the hundreds and just make the size of the file too big. If
you happen to click on one you can delete it but is there anyway to just
delete all imbedded pictures from a spreadsheet?
 
Run this small macro:

Sub no_pic()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
End Sub
 
Thanks for the reply... ended up using "Edit>Go To> Special>Objects>OK
then Delete"

Thanks again.
 
Sub DeleteAllObjects()
ActiveSheet.DrawingObjects.Cut
End Sub

Vaya con Dios,
Chuck, CABGx3
 
Back
Top