I know I can use ActiveSheet.DrawingObjects.Delete to delete all drawing
objects on a sheet.

Is there a way to select all drawing objects EXCEPT for charts and text
boxes (or anything else for that matter)?
--
JNW

I have use this code before:

for each myshape in shapes

if instr(ucase(myshape.name),"CHART") = 0 then

msgbox(myshape.name)
end if

run code above once to make surre you are happy with the results. Then add

myshape.delete into the code.

"JNW" wrote:

> I know I can use ActiveSheet.DrawingObjects.Delete to delete all drawing
> objects on a sheet.
>
> Is there a way to select all drawing objects EXCEPT for charts and text
> boxes (or anything else for that matter)?
> --
> JNW

Joel

Thanks for the reply. I'm not quite understanding what your code does. And
it is erroring at the for next line.

Thanks.
--
JNW


"Joel" wrote:

> I have use this code before:
>
> for each myshape in shapes
>
> if instr(ucase(myshape.name),"CHART") = 0 then
>
> msgbox(myshape.name)
> end if
>
> run code above once to make surre you are happy with the results. Then add
>
> myshape.delete into the code.
>
> "JNW" wrote:
>
> > I know I can use ActiveSheet.DrawingObjects.Delete to delete all drawing
> > objects on a sheet.
> >
> > Is there a way to select all drawing objects EXCEPT for charts and text
> > boxes (or anything else for that matter)?
> > --
> > JNW

Sub test()
Dim nType As Long
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
nType = shp.Type
Select Case nType
Case msoChart, msoTextBox
' inlcude "or anything else for that matter" not to delete
Case Else
shp.Delete
End Select
Next
End Sub

Regards,
Peter T


"JNW" <(E-Mail Removed)> wrote in message
news:5E5773CE-2103-4433-A9E1-(E-Mail Removed)...
> I know I can use ActiveSheet.DrawingObjects.Delete to delete all drawing
> objects on a sheet.
>
> Is there a way to select all drawing objects EXCEPT for charts and text
> boxes (or anything else for that matter)?
> --
> JNW

You can use Type

See this page for a few examples
http://www.rondebruin.nl/controlsobjectsworksheet.htm

--

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


"JNW" <(E-Mail Removed)> wrote in message news:5E5773CE-2103-4433-A9E1-(E-Mail Removed)...
>I know I can use ActiveSheet.DrawingObjects.Delete to delete all drawing
> objects on a sheet.
>
> Is there a way to select all drawing objects EXCEPT for charts and text
> boxes (or anything else for that matter)?
> --
> JNW