Hi Marc,

Am Fri, 14 Aug 2015 14:51:05 -0700 (PDT) schrieb :

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.

if I insert pictures they get the name "Graphic" and an index.
Try:

Sub Del_pics()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 7) = "Graphic" Then
shp.Delete
End If
Next
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional