VBA Excel：刪除工作簿中的所有圖表和圖形，除了一個

Question

我有一個生成大量工作表和圖表的宏。還有各種子程序運行，因此每個生成的工作表/圖表的名稱和數量永遠不會相同。常量是我的HOME工作表，這是用戶的UI，我希望它不受影響。

我在這裏發現了一個類似的問題，關於刪除除您正在使用的工作表（即HOME）之外的所有工作表。這是迄今爲止我所擁有的。

Sub ZRESET() 

Dim ws As Worksheet, wb As Workbook 
Set wb = ActiveWorkbook 

    Sheets("HOME").Select 

    Application.DisplayAlerts = False 
     For Each ws In wb.Worksheets 
      If ws.Name <> "HOME" Then 
       ws.Delete 
      End If 
      If Chart.Name = "" Then 
       Charts.Delete 
      End If 
     Next 
    Application.DisplayAlerts = True 

    Range("B5:E5,B9:E9,B13:E13,B14:E14").ClearContents 
    Range("A1").Select 

End Sub 

該工作表刪除罰款，掛斷我有圖表。我嘗試過去除圖表的各種嘗試，有時它們也可以工作（即將Charts.Delete放在FOR循環和IF語句之外）。但是這需要我在工作簿中實際上有一個圖表。有時用戶可以開發工作表，但沒有圖表。

任何意見，以繼續我的目標刪除頁和/或圖表，同時保持我的HOME表完整？

Answer 1

Option Explicit 

Sub GetRid() 
    Dim ASheet As Worksheet 
    Dim AChart As Chart 


    Application.DisplayAlerts = False 
    Application.ScreenUpdating = False 

    '** first scan for and delete all non HOME worksheets *** 
    For Each ASheet In ActiveWorkbook.Worksheets 
    If UCase(ASheet.Name) <> "HOME" Then 
     ASheet.Delete 
    End If 
    Next 

    '** Now scan and delete any ChartSheets **** 
    For Each AChart In ActiveWorkbook.Charts 
    AChart.Delete 
    Next 

    Application.DisplayAlerts = True 
    Application.ScreenUpdating = True 

End Sub 

Answer 2

Option Explicit 

Sub AllSheetsAndcharts() 

    Dim AChart As ChartObject 
    Dim ASheet As Worksheet 
    Application.DisplayAlerts = False 
    For Each ASheet In ActiveWorkbook.Worksheets 
    If UCase(ASheet.Name) <> "HOME" Then 

     For Each AChart In ASheet.ChartObjects 
     AChart.Delete 
     Next 
     ASheet.Delete 
    End If 
    Next 
    Application.DisplayAlerts = False 

End Sub