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