Boucle sur tous les tableaux dans un classeur avec VBA

Je suis en train de faire une boucle par tous les graphiques dans un classeur.
Pourquoi est-option 1 de travail, mais l'option 2 non?

'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
option 1 répertorie tous les les graphiques incorporés (c'est à dire des tableaux qui sont contenues dans toute la feuille de calcul - voir ici), tandis que l'option 2 listes de toutes les les feuilles de graphique (voir ici)

OriginalL'auteur basje123 | 2016-04-30