VBAで複数グラフの位置指定が上手くいかない

Question

エクセルファイル内のデータから複数のグラフを作成し、それぞれのグラフを任意の位置に表示するプログラムを組みたいのですが、実行したところすべて同じ場所に重なって出力されます。

Sub Test1
With ActiveSheet.Shapes.AddChart.Chart
  '1つ目のグラフの作成
End With
With ActiveSheet.ChartObjects
  '1つ目のグラフの位置指定
End With

With ActiveSheet.Shapes.AddChart.Chart
  '2つ目のグラフの作成
End With
With ActiveSheet.ChartObjects
  '2つ目のグラフの位置指定
End With

With ActiveSheet.Shapes.AddChart.Chart
  '3つ目のグラフの作成
End With
With ActiveSheet.ChartObjects
  '3つ目のグラフの位置指定
End With
End Sub

このプログラムを実行すると、3つめのグラフの位置指定で行った場所にすべて重なって表示されてしまいます。解決方法を教えていただければ幸いです。

Answer 1

これでどうでしょうか。

Sub Test1()
    With ActiveSheet.Shapes.AddChart.Chart
      '1つ目のグラフの作成
    End With
    With ActiveSheet.ChartObjects(1)
      '1つ目のグラフの位置指定
      .Left = 10
    End With
    
    With ActiveSheet.Shapes.AddChart.Chart
      '2つ目のグラフの作成
    End With
    With ActiveSheet.ChartObjects(2)
      '2つ目のグラフの位置指定
      .Left = 510
    End With
    
    With ActiveSheet.Shapes.AddChart.Chart
      '3つ目のグラフの作成
    End With
    With ActiveSheet.ChartObjects(3)
      '3つ目のグラフの位置指定
      .Left = 1010
    End With
End Sub

Comments

[mmtaro000]

正常に動きました。ありがとうございます。