[已解决]求高手帮我减掉这个胖子的肥膘！！

展翅

在文件的所有工作表中，都有大量的线条：


其中6个“基地外”的文件中，有18000多个。

利用定位，删除后就可以减肥了。

huangcaiguang

你怎么找到的    我怎么定位对象找不到？

展翅

由于定位也需要花很多时间，该用代码来删除：

Sub deleteobjects()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    sh.DrawingObjects.Delete
Next
MsgBox "完成"
End Sub


完成后的文件240K。
2013年车辆运作情况表.rar (35.54 KB, 下载次数: 1)

2013-10-23 17:58 上传

点击文件名下载附件

展翅

huangcaiguang 发表于 2013-10-23 17:40
你怎么找到的    我怎么定位对象找不到？

不是定位对象找不到，而是对象实在太多，定位的时间很长，所以或卡死。

因此定位时间长就可以作为判断对象太多的一个依据。这时候就应该考虑用VBA了。

huangcaiguang

展翅 发表于 2013-10-23 18:00
不是定位对象找不到，而是对象实在太多，定位的时间很长，所以或卡死。

因此定位时间长就可以作为判 ...

现在我用你的代码，还是卡死啊！有没有不死的{:1012:}

展翅

huangcaiguang 发表于 2013-10-23 18:04
现在我用你的代码，还是卡死啊！有没有不死的

代码会运行一阵子，等到有个msgbox提示，就完成了。
我的机器大约运行了半分多钟。

展翅

展翅 发表于 2013-10-23 18:06
代码会运行一阵子，等到有个msgbox提示，就完成了。
我的机器大约运行了半分多钟。

换了一台运行10秒就完成了。

huangcaiguang

貌似这个代码我加载失败    不知道是不是看白屏  我点急了！