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

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?

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

EditGo To SpecialObjectsOK
then Delete
Will that work for you?


"Husker87" wrote:

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?

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

Run this small macro:

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

--
Gary''s Student - gsnu200721

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

GREAT help. Thank you.

"ufo_pilot" wrote:

EditGo To SpecialObjectsOK
then Delete
Will that work for you?


"Husker87" wrote:

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?

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

Thanks for the reply... ended up using "EditGo To SpecialObjectsOK
then Delete"

Thanks again.


"Gary''s Student" wrote:

Run this small macro:

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

--
Gary''s Student - gsnu200721

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

Sub DeleteAllObjects()
ActiveSheet.DrawingObjects.Cut
End Sub

Vaya con Dios,
Chuck, CABGx3



"Husker87" wrote:

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?

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

Hi Gary

Be carfull with your macro
See why on this page
http://www.rondebruin.nl/controlsobjectsworksheet.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Gary''s Student" wrote in message
...
Run this small macro:

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

--
Gary''s Student - gsnu200721