在日常办公中,我们需要对活动工作表中的所有图形进行删除,比如工作表中的图片,图表,艺术字,插入的批注以及大量的多边形标注等等。比如下面的例子:

批量删除Excel中指定区域内的图片,这个方法只需一秒就能搞定-天天办公网

要是图形数量少的话,我们可以选择一个再删除一个,倘若图形个数多达几百,甚至上千的话,我们又该怎么办呢?不用担心,下面的几行代码就一键搞定:

Sub删除图形()

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes

Shp.Delete

Next Shp

End Sub

模块1代码窗口的截图如下:

批量删除Excel中指定区域内的图片,这个方法只需一秒就能搞定-天天办公网

在Excel菜单栏已添加[开发工具]的条件下,我们可以按Alt+F11快捷键,打开VBE窗口,点击[插入]命令,选择[模块]选项,然后,我们把上面的代码复制到模块1代码窗口中即可。

在非设计模式下,按[执行]按钮后,最终的效果如下:

批量删除Excel中指定区域内的图片,这个方法只需一秒就能搞定-天天办公网

怎么样,神奇吧!过去需要几分钟,几十分钟的工作,现在只需要一秒钟就轻松搞定了!