delete images in an excel sheet

[raj.sinha]

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

 

[Ron de Bruin]

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

 

[Guest]

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