See
http://www.rondebruin.nl/controlsobjectsworksheet.htm

For example

Sub Shapes1()
'Delete all Objects except Comments
On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Delete
On Error GoTo 0
End Sub


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



wrote in message oups.com...
Hi

My Macros retrieves graphs from an external app as jpg images and
pastes them in the sheet.

before i run this macro i want to delete these old images. i tried this
but it is not an oleobject. how are images treated as in excel

For Each obj In Sheet1.OLEObjects

obj.Delete

Next oCheck