| 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 | |||
Hybrid Mode
