使用VBA刪除子ChartObjects

Question

我無法弄清楚如何使用VBA刪除圖表。

起點：

1. 創建空白工作簿
2. 按F11三次創造Chart1，Chart2和Chart3
3. 在Chart2單擊鼠標右鍵，移動圖表，對象在：Chart 1
4. 右鍵點擊Chart3，移動圖表，對象在：Chart 1

什麼VBA代碼將從Chart1刪除所有圖表（Chart2和Chart3）？

嘗試：

'Try 1: Run-time error -2147024809 (80070057): 
'  The specified value is out of range. 
Sheets("Chart1").ChartObjects.Delete 

'Try 2: (Same error) 
Charts("Chart1").ChartObjects.Delete 

Answer 1

看來你不能刪除圖表。原因是圖表被鎖定，無法從VBA和應用程序解鎖圖表。

我發現的唯一解決方法是：1.將其移至任何工作表，2.將其刪除。

可能的代碼可能如下：

Dim myCHART As Chart 
Set myCHART = Sheets("Chart1") 


myCHART.ChartObjects(1).Select 
ActiveChart.Location Where:=xlLocationAsObject, Name:=Worksheets(1).Name 
Worksheets(1).Shapes(Worksheets(1).Shapes.Count).Delete 

更新後的代碼（由史蒂芬）

Do While Charts("Chart1").ChartObjects.Count > 0 
    Charts("Chart1").ChartObjects(1).Chart.Location xlLocationAsObject, _ 
                Worksheets(1).Name 
    Worksheets(1).Shapes(Worksheets(1).Shapes.Count).Delete 
Loop