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

STR_Liang

于 2020-05-10 17:50:09 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA

本文链接：https://blog.youkuaiyun.com/STR_Liang/article/details/106039368

VBA 专栏收录该内容

62 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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