Excel2010插入对象时卡死，问题可能是“对象比较多”，电脑配置较低造成反应卡死的现象试一试用宏命令一键清除所有对象：
Sub 清除()
For Each shp In Shapes
shp.Delete
Next
End Sub
