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

チャートの2種類があります。

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すべてのグラフシートcontaing Sheetsコレクションを返します（ないチャートを！）。ただし、Worksheet.ChartObjectsの場合、the documentation saysは、そのシート上のすべての図表を含むChartObjectsコレクションを返します。