office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel vba刪除工作簿上所有shape形狀

2019-11-05 16:21:00
tmtony8
原創
513

如果表格中有多個shape形狀,如果需要全部刪除,是否有更好的辦法?


下面代碼遍歷整個工作簿,逐個工作表批量刪除所有形狀對象

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



刪除結果

    分享
    北京十一选五基本走势