Limit delete option in VBA

[Arjen79]

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