エクセルのマクロでグラフオブジェクトを指定位置に移動？

質問

お世話になります。
エクセル2000のマクロで困っています。

Range("indirect(AR69)").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("前年比").Range("indirect(AR69)"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="前年比

このマクロ（自動記述）でシート「前年比」にグラフオブジェクトを作りました。
このグラフを指定したセル位置に移動するのはどうすればいいでしょうか。
具体的にはセルAB5の左上の角にグラフの左上をピッタリ重ねたいのです。

あと、グラフオブジェクトに名前をつけて、このグラフを選択する時に名前で選択できるでしょうか。
"グラフ 6964"みたいに通し番号が付けられていて非常にやりにくいのですが。
よろしくお願いします。

回答No.1

zap35 · ベストアンサー

以下でどうでしょう。（オブジェクト名変更＋位置あわせ）

Sub Macro2()
　Range("indirect(AR69)").Select
　Charts.Add
　ActiveChart.ChartType = xlLineMarkers
　ActiveChart.SetSourceData _
　　　Source:=Sheets("前年比").Range　("indirect(AR69)"), _
　　　PlotBy:=xlColumns
　ActiveChart.Location Where:=xlLocationAsObject, Name:="前年比
'以下追加
　ActiveChart.Parent.Name = "GR"
　ActiveSheet.ChartObjects("GR").Top = Range("AB5").Top
　ActiveSheet.ChartObjects("GR").Left = Range("AB5").Left
End Sub

お礼

前回に引き続いてご回答頂きありがとうございます。
この通りにやったら出来ました。
簡単な記述で出来るものですね。
お世話になりました＾＾