Delete all images from a sheet

[Guzzlr]

Hello
I have:

ActiveSheet.Shapes.Range(Array("image1.png")).Delete

The problem, is I wish to delete all images from the sheet, reguardless if it is a PNG or JPEG or another format.
How do I do this, seems it only wants to find image 1 that is a .png

Thanks for the help

 

[Domenic]

To delete all images from the active sheet, try the following...

    Dim shp As Shape
    
    For Each shp In ActiveSheet.Shapes
         If shp.Type = msoPicture Then
            shp.Delete
         End If
    Next shp

Hope this helps!

 

[Trebor76]

Domenic has already provided the solution