用vba删除工作簿中全部对象

木牙水

同事发给我一个工作表有15M，工作簿里面有6个工作表，每个工作表里面对象太多了，每次用ctrl+g定位对象删除的时候，总是卡死。请问怎么用vba一次性全部删掉啊？

该贴已经同步到 木牙水的微博

sword9000

1. Sub 删除对象()
   
2. Dim sheet As Worksheet
   
3. For Each sheet In Worksheets
   
4.      sheet.DrawingObjects.Delete
   
5. Next sheet
   
6. End Sub

复制代码

xx900505

sword9000 发表于 2012-7-4 22:21

特地注册了一个号来感谢你

kuangben8

sword9000 发表于 2012-7-4 22:21

感谢分享！学习了。