Delete Pictures in Excel 2010
 

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.

Delete Pictures in Excel 2010
 

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

Delete Pictures in Excel 2010
 

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.