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

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?
 
G

Guest

Run this small macro:

Sub no_pic()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
End Sub
 
G

Guest

Thanks for the reply... ended up using "Edit>Go To> Special>Objects>OK
then Delete"

Thanks again.
 
G

Guest

Sub DeleteAllObjects()
ActiveSheet.DrawingObjects.Cut
End Sub

Vaya con Dios,
Chuck, CABGx3
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I remove an Autoshape? 3
How do I delete multiple pictures at one time? 3
Can I select and delete multiple objects from a worksheet? 3
autoshapes & pictures 1
How do I delete a missing reference to a Macro 3
DELETE FROM a table WHERE... 1
How can I select/delete multiple pictures 22
Delete a clipart from Excel which doesn't appear in a cell? 4

Top