使用VBA在工作簿中循環遍歷所有圖表

Question

我試圖循環遍歷工作簿中的所有圖表。 爲什麼選項1工作，但選項2不是？

'OPTION 1

For Each sht In ActiveWorkbook.Worksheets 
    For Each cht In sht.ChartObjects 
     MsgBox (cht.Name) 
    Next cht 
Next sht 

' OPTION2

Dim oChart As Chart 
    For Each oChart In Application.Charts 
     MsgBox (oChart.Name) 
    Next oChart 
End Sub 

Answer 1

有圖表兩種形式：

1. 「大」 排行榜 - 整個圖表片
2. 「小「圖表 - 嵌入工作表中的圖表對象

此代碼：

Sub dural() 
    Dim oChart As Chart 
    For Each oChart In Application.Charts 
     MsgBox oChart.Parent.Name & vbCrLf & oChart.Name 
    Next oChart 
End Sub 

將顯示 「大」 的各種信息。

，如果你想在 「小」 的圖表信息：

Sub dural2() 
    Dim sh As Worksheet, i As Long 
    For Each sh In Worksheets 
     If sh.ChartObjects.Count > 0 Then 
      For i = 1 To sh.ChartObjects.Count 
       MsgBox sh.ChartObjects(i).Chart.Name 
      Next i 
     End If 
    Next sh 
End Sub 

Answer 2

由於the documentation states，Application.Charts返回Sheets收集方含所有圖表工作表（不圖！）。然而，對於Worksheet.ChartObjects，the documentation says它返回一個包含該表單上所有圖表的ChartObjects集合。