Vba Delete All Picture In Multiple Sheet (All Sheets)

[muhammad susanto]

hello...

i need your help about macro code to delete all pictures in multiple sheets (all sheet)..

any body help, thanks in advance..

m.sst

 

[Kamolga]

hello...

i need your help about macro code to delete all pictures in multiple sheets (all sheet)..

any body help, thanks in advance..

m.sst

For some reason, I have to activate each sheet for the code to work

Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
    sh.Activate
    ActiveSheet.DrawingObjects.Delete
    Next sh

 

[muhammad susanto]

hi.. thank you!! worked it for me...

 

[Domenic]

Here's another example that loops though each shape within each of the worksheets, checks whether the shape is in fact a picture, and if so deletes it. Other types of shapes are not deleted.

Sub test()

    Dim wks As Worksheet
    Dim shp As Shape
    
    For Each wks In ThisWorkbook.Worksheets
        For Each shp In wks.Shapes
            If shp.Type = msoPicture Then
                shp.Delete
            End If
        Next shp
    Next wks
    
End Sub

Hope this helps!

 

[Kamolga]

You are welcome. Glad it worked and thank you for the feedback.