迭代Excel工作表中的所有图表

Question

以下代码适用于11张图表中的9张。同一工作表的两个图表不受影响。为什么会这样？

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

我还尝试通过索引及其名称访问图表对象：

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

但这种做法总是导致例外。似乎Excel工作表中的图表不是连续的。