excel VBA代码打开excel自动清除所有对象

以下是一个简单的Excel VBA代码，可以打开Excel并自动清除所有对象：

Sub ClearAllObjects()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim chartObj As ChartObject
    Dim chart As Chart
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 清除工作表上的所有形状
        For Each shp In ws.Shapes
            shp.Delete
        Next shp
        
        ' 清除工作表上的所有图表对象
        For Each chartObj In ws.ChartObjects
            chartObj.Delete
        Next chartObj
    Next ws
    
    ' 清除工作簿上的所有图表
    For Each chart In ThisWorkbook.Charts
        chart.Delete
    Next chart
End Sub

你可以将此代码复制粘贴到Excel的VBA编辑器中（按下Alt + F11打开编辑器），然后运行ClearAllObjects子程序即可。它将循环遍历工作簿中的所有工作表，并清除每个工作表上的所有形状和图表对象。最后，它还会清除工作簿中的所有图表