Iterating à travers TOUS les charts dans une feuille de calcul Excel

Le code suivant fonctionne bien pour 9 des 11 charts. Deux arrays de la même feuille ne sont pas affectés. Pourquoi est-ce si ?

Sub resizeAllCharts() Dim myChartObj As ChartObject For Each myChartObj In ActiveSheet.ChartObjects With myChartObj .Height = 350 .Width = 600 End With Next myChartObj End Sub 

J'ai également essayé d'accéder aux chartobjects à travers les indices et leurs Noms:

 ActiveSheet.ChartObjects(i) ActiveSheet.ChartObjects("Chart " & i) 

mais cette approche a toujours entraîné des exceptions. Il semble que les charts dans une feuille de calcul Excel ne soient pas consécutifs.