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

附上刪除的圖形類型見下表：