VBA批量删除Shape

2019独角兽企业重金招聘Python工程师标准>>>

有时候EXCEL文件会包含很多图形，想要一次批量删除；可以用以下代码。

*代码从EXCELHOME复制而来

Public Sub Del_Shapes()
Dim sht As Worksheet
dim p As Shape
dim arr(), n%
For Each sht In Worksheets
    For Each p In sht.Shapes
        If p.Type = 1 Then n = n + 1: ReDim Preserve arr(1 To n): arr(n) = p.Name
    Next p
    If n > 0 Then sht.Shapes.Range(arr).Delete
    n = 0
Next sht
End Sub

删除当前工作表图片

Sub Clear_Picutes()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoPicture Then Shp.Delete
Next
Debug.Print Timer
End Sub

 

转载于:https://my.oschina.net/tedzheng/blog/1926906