Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting all shapes and lines
Is there a quick and simple code to delete ALL shapes on a worksheet?
Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting all shapes and lines
Dim ThisShape as Shape
For Each ThisShape in Worksheets("SheetName").Shapes ThisShape.Delete Next ThisShape -- - K Dales "thadpole" wrote: Is there a quick and simple code to delete ALL shapes on a worksheet? Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting all shapes and lines
Thank you!!! It worked, except it deleted all my buttons on the worksheet
too! I forgot buttons were actually shapes as well. "K Dales" wrote: Dim ThisShape as Shape For Each ThisShape in Worksheets("SheetName").Shapes ThisShape.Delete Next ThisShape -- - K Dales "thadpole" wrote: Is there a quick and simple code to delete ALL shapes on a worksheet? Thanks! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting all shapes and lines
See the information on this page
http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "thadpole" wrote in message ... Thank you!!! It worked, except it deleted all my buttons on the worksheet too! I forgot buttons were actually shapes as well. "K Dales" wrote: Dim ThisShape as Shape For Each ThisShape in Worksheets("SheetName").Shapes ThisShape.Delete Next ThisShape -- - K Dales "thadpole" wrote: Is there a quick and simple code to delete ALL shapes on a worksheet? Thanks! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting all shapes and lines
Thanks, that will work too, especially if there are a lot of controls on the
sheet. Fortunately, I only have 2 controls so I inserted a simple... If ThisShape.Name < "MyButtonName" then ThisShape.Delete End If "Ron de Bruin" wrote: See the information on this page http://www.rondebruin.nl/controlsobjectsworksheet.htm -- Regards Ron de Bruin http://www.rondebruin.nl "thadpole" wrote in message ... Thank you!!! It worked, except it deleted all my buttons on the worksheet too! I forgot buttons were actually shapes as well. "K Dales" wrote: Dim ThisShape as Shape For Each ThisShape in Worksheets("SheetName").Shapes ThisShape.Delete Next ThisShape -- - K Dales "thadpole" wrote: Is there a quick and simple code to delete ALL shapes on a worksheet? Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting Shapes | Excel Discussion (Misc queries) | |||
Deleting Shapes in a worksheet | Excel Programming | |||
Deleting shapes in an area | Excel Programming | |||
Deleting shapes | Excel Programming | |||
Deleting shapes | Excel Programming |