太多的VBA解决方案"/>
excel 隐藏对象太多的VBA解决方案
'该功能会删除所有对象,没有对图片,形状等进行详细区分。如果excel中包含图表等。
‘【请不要使用该功能】
Sub DeleteAllObject()
For i = 1 To ActiveWorkbook.Worksheets.Count
Dim obj As Object
Dim cc As Integer
cc = 1
MsgBox (Sheets(i).Shapes.Count)
For Each obj In Sheets(i).Shapes
obj.Delete
'如果对象过多,会导致excel处于假死状态,无法判断是否需要强制退出。
'所以设置每次只删除5000个对象。如果时间超过20分钟,就可能真的需要强制退出了。
cc = cc + 1
If cc > 5000 Then
Exit For
End If
Next o
Next i
ActiveWorkbook.Save
End Sub
更多推荐
excel 隐藏对象太多的VBA解决方案
发布评论