It worked on a picture I've inserted into the execl spreadsheet but not on
what I pasted into the spreadsheet. I'm pasting from the internet and it
puts the little Java Icon on the spreadsheet. I click on the Icon and it
says it's a picture. Maybe it's a different type?

"Ron de Bruin" wrote in message
...
Try this one

Sub Shapes2()
'Loop through the Shapes collection and use the Type number of the control
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes

' pictures
If myshape.Type = 13 Then myshape.Delete
' You can also use myshape.Visible = False

Next myshape
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"The Other Mike" wrote in message
...
Only pictures.
Thanks


"Ron de Bruin" wrote in message
...
Hi Mike

All objects or only Pictures ?

See this page for example code
http://www.rondebruin.nl/controlsobjectsworksheet.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"The Other Mike" wrote in message
...
How can I select all the picture objects in my excel file and delete
them? I've tried highlighting the column but that doesn't work.

Thanks Mike