Limit delete option in VBA

Hello Profs,

Who knows how to limit the code to delete only .jpg files in a XLS?

Sub DeleteAllPics()
With Worksheets("sheet1")
.Unprotect ""

Dim pic As Object
For Each pic In ActiveSheet.Pictures
pic.Delete
Next pic
  .Protect ""
End With
End Sub

Hello Arjen79,

The Excel Pictures collection object does not have a Type property. This is because all picture files on a worksheet are converted into the same format regardless if it is a bmp, jpg, or png.

You may be able to delete specific pictures by name, provided the picture type was included in the picture's name.