How to know if a Shape is Picture

    For Each wShape In ActiveSheet.Shapes
    If (wShape.Type <> 13) Then wShape.Delete ' If the shape doesn't represent a Picture, delete
    Next wShape

you can use statement:
Msgbox wShape.Type

to find out the type of the shape. the property will return an integer value, you have to guess yourself. Have fun.