埋め込みグラフを作る その8(グラフにタイトルをつける)

徐々に埋め込みグラフ作成に架橋に入ってまいりました．今回はタイトルをつけてみましょう．前回のマクロに肉付けします．

【事例】
Sub Second_graph_make()

With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6")
.HasTitle = True
.ChartTitle.Text = "在庫調査"
End With

ActiveSheet.ChartObjects.ShapeRange.Name = "test"

With ActiveSheet.ChartObjects("test").Chart.SeriesCollection("パスタ")
.ChartType = xlLineMarkers
.AxisGroup = xlSecondary
.MarkerSize = 20
End With

【解説】
.hastitle=Trueとし，次に.charttitle.text="hogehoge"としてやれば良いです．快調快調．

【参考】
タイトルのフォントをいろいろ変えたい場合もあるでしょう．その場合は以下のように処理してあげましょう．.hastitleのところに連ねて書いていきます．

まず，フォントをボールドにしたいとき
.ChartTitle.Font.Bold = True
ちなみにイタリックにしたい場合は想像通りitalicとします．

フォントのサイズを変えたい場合
.ChartTitle.Font.Size = 20

ま，こんなかんじで．