エクセルマクロでグラフのタイトルを作成 （A1＋任意の文字）

質問

エクセルグラフのタイトルをVBAで記入することについて，どなたか教えてください。
グラフのタイトルを「A1のセル＋任意の文字（不変）」と付けたいのですが，どのようなマクロを組めばいいかわかりません・・・。
例えば，A1セルに「２００７年」とはいっていて，
マクロでグラフを作成すると，自動的に，「２００７年の得点表」とタイトルが表示されるというものです。
軸についても，A1に２００７年とはいっており，自動的に，２００７年の選手となるには，どのようなマクロを組めばいいでしょうか。
毎年，更新されるデータなので，年の部分を可変にできるマクロを作っています。

アドバイスでもかまいませんので，どなたか教えていただけますと大変たすかります。宜しくお願いいたします。

回答No.2

imogasi

わざわざ質問しなくても、質問の操作をして、マクロの記録をとれば済むことではないですか。
マクロの記録は
例データ　A1:C４
x y
a 11 31
b 23 15
c 44 20
挿入ーグラフー折れ線ー完了
マクロの記録結果は
Sub Macro1()
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:C4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "２００７の得点表"
End With
End Sub
ーー
この最後に(私の場合はD1に２００７を入れたので）
With ActiveChart
.ChartTitle.Characters.Text = Range("D1") & "の得点表"
End With
を加えればよいでしょう。
半角２００７を全角にするならSRange("D1")に対し、trConvのvbWideを使う。

回答No.1

Be_DaMa

マクロのグラフタイトルのところを
・・・
With ActiveChart
　.HasTitle = True
　.ChartTitle.Characters.Text = Range("A1").Text & "の得点表"
・・・
とすればよいかと思います。
軸についても同様です。