VBA小程序--遍历所有工作表_删除所有图片

最新推荐文章于 2023-04-27 23:31:43 发布

原创最新推荐文章于 2023-04-27 23:31:43 发布 · 1.1k 阅读

3 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一段VBA代码，用于批量删除Excel工作簿中所有工作表上的图片。通过激活每个工作表并遍历其形状集合，可以精确地定位并删除每一个图片对象。

Sub 遍历所有工作表_删除所有图片()
    Dim shp As Shape, sht As Worksheet
    Rem On Error Resume Next '忽略报错，防止有#N/A
    
    Rem 遍历所有工作表
    For Each sht In Worksheets
        sht.Activate
        Rem 清除图形对象
        For Each shp In sht.Shapes
            shp.Delete
        Next
    Next
    
    Rem On Error GoTo 0 '恢复报错
End Sub