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

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

如下图，通过VBA代码快速删除

代码如下：

Sub 删除图形()

    Dim Shp As Shape

    For Each Shp In ActiveSheet.Shapes

        Shp.Delete

    Next Shp

End Sub

添加按钮或者其他直接调用这个函数即可。