Delete All Picture Objects Using VBA

[Nathan Bell]

All,

I am looking for some code that will allow me to go in and delete all
"Picture" objects from within a worksheet without deleting the rest of the
data. Is this possible?

Regards,

Nathan

 

[Don Guillett]

various ways

Sub ShapesCut()
For Each S In ActiveSheet.Shapes
S.Cut
Next
End Sub
'or

Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

Sub ShapesALLinWorkbookDelete() 'Deletes all in WORKBOOK
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.DrawingObjects.Delete
Next sh
end sub

 

[Bernie Deitrick]

Nathan,

ActiveSheet.DrawingObjects.Delete

Or simply use Edit | Go To... Objects, press OK, then Delete.

HTH,
Bernie
MS Excel MVP

 

[Debra Dalgleish]

If you want to delete only Pictures, but not other shapes, such as text
boxes, you can use code similar to the following:

'======================
Sub DeletePictures()
Dim shp As Shape
For Each shp In ActiveSheet.ShapeRange
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp
End Sub
'=====================