在日常办公中,我们需要对活动工作表中的所有图形进行删除,比如工作表中的图片,图表,艺术字,插入的批注以及大量的多边形标注等等。比如下面的例子:
要是图形数量少的话,我们可以选择一个再删除一个,倘若图形个数多达几百,甚至上千的话,我们又该怎么办呢?不用担心,下面的几行代码就一键搞定:
Sub删除图形()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub
模块1代码窗口的截图如下:
在Excel菜单栏已添加[开发工具]的条件下,我们可以按Alt+F11快捷键,打开VBE窗口,点击[插入]命令,选择[模块]选项,然后,我们把上面的代码复制到模块1代码窗口中即可。
在非设计模式下,按[执行]按钮后,最终的效果如下:
怎么样,神奇吧!过去需要几分钟,几十分钟的工作,现在只需要一秒钟就轻松搞定了!