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