写一段vba代码，把excel中所有工作簿中的图片删除

最新推荐文章于 2025-03-17 01:56:19 发布

Waiyuet Fung

最新推荐文章于 2025-03-17 01:56:19 发布

阅读量691

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/weixin_35749545/article/details/129607969

版权

这段VBA宏代码用于遍历当前Excel工作簿中的所有工作表，查找并删除其中的所有图片对象。通过ForEach循环结构，对每个工作表的形状(Shapes)集合进行检查，如果形状类型为msoPicture，则执行删除操作。

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

以下是 VBA 代码，可用于删除 Excel 中所有工作簿中的图片：

Sub DeleteAllImages()
    Dim ws As Worksheet
    Dim shp As Shape
    For Each ws In ThisWorkbook.Worksheets
        For Each shp In ws.Shapes
            If shp.Type = msoPicture Then
                shp.Delete
            End If
        Next shp
    Next ws