How to Delete all Shape image in Excel sheet

How to Delete all Shape image in Excel sheet


----------------------------------------------------
Sub Delshape()

Dim shape As Excel.shape

For Each shape In ActiveSheet.Shapes

    Select Case shape.Type
        Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape
            shape.Delete
        Case Else
            'Do nothing
    End Select
Next

End Sub
----------------------------------------------------------