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