VBAを実行するたび作成済みのグラフが毎回移動する

Question

VBAにてExcel内のデータから位置を指定して複数のグラフを表示するプログラムを作成しています。その際に、一度作成したグラフがすでにExcel内で表示されている様態で新たに別の範囲を指定したグラフを別の位置を指定して表示しようとしたところ、前に作成していたグラフが新たに表示しようとした位置に移動してしまうということが起こりました。新たに別シートを作成してそちらで表示すると特に問題なくできたのですが、同じシート内で複数回に分けてグラフを表示しようとすると、それまでに作成したグラフにも干渉してしまうような感じがします。下記のサンプルプログラムを例に挙げると、前にA1の位置に指定して表示したグラフが、二回目のA15への指定に反応して、元居たA1からA15に移動してしまうということです。どなたか解決方法を教えていただきたいです。

1回目

Sub Test()
'グラフの描画部分の処理

With ActiveSHeet.ChartObjects
.Left = Range("A1").Left
.Top = Range("A1").Top
End Sub

2回目に作成したグラフ

Sub Test()
'グラフの描画部分の処理

With ActiveSHeet.ChartObjects
.Left = Range("A15").Left
.Top = Range("A15").Top
End Sub

Answer 1

Sub Test()
    Dim n, nm
    n = ActiveSheet.ChartObjects.Count
    With ActiveSheet.ChartObjects(n)
        .Left = Range("A15").Left
        .Top = Range("A15").Top
        nm = .Name
    End With
    Debug.Print n, nm, ActiveSheet.ChartObjects(nm).TopLeftCell.Address
End Sub

Comments

[mmtaro000]

つまりChartObjectsはすでにシート内に存在しているグラフも対象となるということでしょうか？

[jinoji]

そういうことです。ChartObjects と複数形であることもそれを示唆しています。

[mmtaro000]

返信が遅れてしまい大変申し訳ありません。
大変参考になりました。ありがとうございました。