autoshape很多 excel_如何刪除 Excel 中 autoshape 的圆框？何删除excel表里的对象？

如何刪除 Excel 中 autoshape 的圆框？何删除excel表里的对象？

可能发生在复制资料，粘贴在excel后，会出现一堆隐形的圆框。造成Excel文件特别大，运行缓慢卡死。

如图：

通过【查找和选择>定位条件>选择对象】点确定，可以筛选出所有对象，但在筛选出结果之前，excel多半会卡死

怎么办呢？网上找了很多方法，都没实现，最后找到一点代码，通过宏来实现。

步骤：

方式一：Alt + F11，打开VBA窗口，插入模块，代码区域复制以下代码：

方式二：在Sheet1上右键>查看代码，打开打开VBA窗口代码区域复制以下代码：

VBA窗口粘贴代码后如下，按F5运行。鼠标可能会变圆圈，excel可能会显示“无响应”，然后就是等。运行完之后，关了VBA窗口。

再次通过【查找和选择>定位条件>选择对象】点确定，查找对象，会提示“找不到对象”，说明已经删了。保存excel文件，发现比原来小了不少。

代码如下：

Sub ds()

Dim sh As Worksheet, shp As Shape

For Each sh In Sheets

For Each shp In sh.Shapes

If sh.Shapes.Count > 0 Then

If shp.Type <> msoPicture Then

shp.Delete

End If

End If

Next

Next

ThisWorkbook.Save

End Sub