一键删除工作表中的所有图形

在日常办公中，尤其是对于经常做报告的办公白领们，有时候，我们需要对活动工作表中的所有图形进行删除，比如工作表中的图片，图表，艺术字，插入的批注以及大量的多边形标注等等。如何批量删除呢？如下图，通过VBA代码快速删除

1493974324307332.gif

代码如下：Sub 删除图形()   Dim Shp As Shape   For Each Shp In ActiveSheet.Shapes       Shp.Delete     Next Shp End Sub
添加按钮或者其他直接调用这个函数即可。