hi Marc,

Sub DeleteAllDrawingObjects()
ActiveSheet.DrawingObjects.Delete
End Sub

isabelle

Le 2015-08-14 17:51, a écrit :
Hi,

I have 2 macros that I use, below... that deletes all pictures form Active
worksheet, it worked in excel 2000 but I am trying to use this in excel 2010
& it does not delete the pictures. Does this code need to be changed in order
to work in excel 2010 and/or what should I add or change.

----------------------------------- Sub Del_pics() Application.ScreenUpdating
= False 'delete pictures For Each shp In ActiveSheet.Shapes If shp.Type =
msoPicture Then shp.Delete End If Next shp End Sub

----------------------------------- Sub DeleteAllPics() Dim Pic As Object For
Each Pic In ActiveSheet.Pictures Pic.Delete Next Pic End Sub
-----------------------------------

Thanks for any help.