VBA 删除Excel中所有的图片

Sub DeletePic()
    Dim p As Shape
    For Each p In Sheet1.Shapes
        If p.Type = 13 Then
            p.Delete
        End If
    Next
End Sub

附上删除的图形类型见下表：