title: Iterating through ALL charts in an Excel worksheet
body: <p>The following code works fine for 9 of 11 Charts. Two charts of the same worksheet are not affected. Why is that so ?</p>
  
  <pre><code>Sub resizeAllCharts()
      Dim myChartObj As ChartObject
      For Each myChartObj In ActiveSheet.ChartObjects
          With myChartObj
              .Height = 350
              .Width = 600
          End With
      Next myChartObj
  End Sub
  </code></pre>
  
  <p>I also tried to access the chartobjects through indices and their Names:</p>
  
  <pre><code>ActiveSheet.ChartObjects(i)
  ActiveSheet.ChartObjects("Chart " &amp; i)
  </code></pre>
  
  <p>but this approach always resulted in exceptions. It seems that the charts in an Excel worksheet are not consecutive.</p>