【excel怎么去形状】删除excel秒杀技术的——单按钮工作表中的所有图形

在日常办公中，尤其是经常做报告的白领，有时需要删除活动工作表中的所有图形，包括工作表中的图画、图表、艺术家、插入的注释和大量多边形标注。例如：

如果图形的数量少，我们可以选择一个再删除一个，如果图形的数量达到几百甚至几千个，我们该怎么办？不要担心。接下来的几行代码通过一次点击完成。

删除Sub图形()

Dim Shp As Shape

For Each Shp In Ac

s

Next Shp

End Sub

模块1代码窗口的屏幕截图如下：

在Excel菜单栏中添加了“开发工具”的情况下，按Alt F11快捷方式打开VBE窗口，单击“插入”命令，选择“模块”选项，然后将上述代码复制到“模块1代码”窗口中。

在非设计模式下按“运行”按钮，最终效果如下：

怎么样，神奇吧！过去需要几分钟、几十分钟的时间，现在只要一秒钟就能轻松完成！

谢谢：欢迎您的赞美、评论和分享！