最佳答案要是图形数量少的话，我们可以选择一个再删除一个，倘若图形个数多达几百，甚至上千的话，我们又该怎么办呢？不用担心，下面的几行代码就一键搞定：Sub删除图形()Dim Shp As ShapeFor Each Shp In ActiveSheet.ShapesShp.DeleteNext ShpEnd ......
要是图形数量少的话，我们可以选择一个再删除一个，倘若图形个数多达几百，甚至上千的话，我们又该怎么办呢？不用担心，下面的几行代码就一键搞定：
Sub删除图形()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub
模块1代码窗口的截图如下：
在Excel菜单栏已添加[开发工具]的条件下，我们可以按Alt+F11快捷键，打开VBE窗口，点击[插入]命令，选择[模块]选项，然后，我们把上面的代码复制到模块1代码窗口中即可。
在非设计模式下，按[执行]按钮后，最终的效果如下：
版权声明：本文内容/及图片/由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭/侵权/违法违规的内容，
请发送邮件至 ks13@qq.com 举报，一经查实，本站将立刻删除。
