请尝试以下方法:
1、点击“文件”-“选项”
2、点击“常规”选项卡，取消勾选显示开始屏幕
3、选择“加载项”-“管理（Excel加载）”-“转到”
4、取消所有宏
5、选择“加载项”-“管理（Com加载）”-“转到”
6、取消加载项，然后确定
7、点击“信任中心”-“信任中心设置”，将“隐私选项”取消勾选
8、点击“高级”，“常规”处将“请求自动更新链接”取消勾选
9、点击“高级”-“web选项”-“文件”，取消勾选下面两项
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-09-28
打开EXCEL，，按Alt+F11,插入模块，粘贴下面的代码，按F5运行
sub DelAllShapes()
Dim ws as Worksheet
Dim sp as Shape
Dim n As Double
Dim Content As String
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.Width < 1000 And sp.Height < 1000 then
sp.Delete
n = n + 1
End If
Next
Content = Content & "工作表" & ws.Name & "删除了" & n & "个对象" & vbCrLf
n = 0
Next
MsgBox Content
End Sub追问
sub DelAllShapes()
Dim ws as Worksheet
Dim sp as Shape
Dim n As Double
Dim Content As String
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.Width < 1000 And sp.Height < 1000 then
sp.Delete
n = n + 1
End If
Next
Content = Content & "工作表" & ws.Name & "删除了" & n & "个对象" & vbCrLf
n = 0
Next
MsgBox Content
End Sub追问
这样会删除里面的数据跟公式吗？
追答不会的
追问谢谢了 现在不卡了
本回答被提问者采纳第2个回答 2014-05-21
这个问题没法回答。
从应该升级电脑到优化公式都有可能。追问
从应该升级电脑到优化公式都有可能。追问
我的435330497 能加下吗 帮我看看 谢谢了
第3个回答 2014-05-21
换office！推荐微软的2007版追问
也是同事发我的 换了电脑还是卡
追答那就是软件有问题，自己去下载一个吧！上传很慢，不然我都给你上传一个了
相似回答