Sub Images()
Dim Pic As Shape
With ActiveSheet
    For Each Pic In ActiveSheet.Shapes
        If Pic.Type = msoPicture Then
            Pic.Select
            Pic.Delete
        End If
    Next Pic
'Activate sheet to delete autoshapes.
'Sheet1.Activate

Dim GetShape As Shape

    For Each GetShape In ActiveSheet.Shapes
        GetShape.Delete
    Next
End sub