Excel里含有大量的autoshape对象，导致整个文件卡，如何删除autoshape对象，但不能删到图片

Question

如题

Answer 1

看起来你已经选中一个了 再按下ctrl+A键,就会选中全部这些东西,然后按下删除按钮 这个应该就是在EXCEL里插入了矩形形状,选中再按删除就能删掉的

Answer 2

分享一个网上找的方法：

按

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

Sub DeletePic()

 

    Dim p As Shape

 

    For Each p In ActiveSheet.Shapes

 

        If p.Type = 1 Then

 

            p.Delete

 

        End If

 

    Next

 

End Sub

 ————————————————

版权声明：本文为CSDN博主「wangxiaotian2007」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/wangxiaotian2007/article/details/89486180

Answer 3

写代码可以处理，需要文档