1. 程式人生 > >VBA 刪除Excel中所有的圖片

VBA 刪除Excel中所有的圖片

delet color 所有 span ima 分享 ext pre 類型

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

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

技術分享圖片

VBA 刪除Excel中所有的圖片