delete images in an excel sheet
 

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

delete images in an excel sheet
 

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

delete images in an excel sheet
 

" wrote:

... 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

Try:

For Each pic In Sheet1.Shapes
pic.Delete
Next