埋め込みグラフを作る その11(フォントサイズ変更)

埋め込みグラフを作る その10(グラフに凡例をつける)

グラフ作成シリーズも架橋に入ってきました．今回は凡例をつける方法です．では，ちゃっちゃと行きましょう．

【事例】
Sub Graph_Legend_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
.HasLegend = True
.Legend.Position = xlLegendPositionBottom
End With

End Sub

【解説】
結構簡単です．凡例の設置する場所は以下のように設定できます．

xlLegendPositionCorner 隅
xlLegendPositionRight 右
xlLegendPositionTop 上
xlLegendPositionBottom 下
xlLegendPositionLeft 左

楽勝楽勝．

埋め込みグラフを作る その9(グラフに軸ラベルをつける)

前回タイトルをつけたので，今度は軸ラベルをつけましょう．いろいろな種類があると思うのでオーソドックスな感じからタイトルをつけていきたいと思います．

【事例】
Sub graph_label_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.Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "y軸"
.AxisTitle.Orientation = xlVertical
End With

End Sub

【解説】
上記のようにすると，ｙ軸にラベルが入ります．軸の場所を指定するのはWithステートメントの.axis(xlValue, xlPrimary)のところを変更すればいくらでも書くことが出来ます．以下にその中身を示します．

カッコ内の最初の項目
xlCategory 項目軸（x軸)
xlValue 数値軸(y軸)
xlSeriesAxis 系列軸(3Dグラフ作成時)

カッコ内の2つ目の項目
xlPrimary 第1軸
xlSecondary 第2軸

上記のような内容を1つづつ追加していけば全ての軸にラベルを設置することが出来るようになると思います．お試しあれ．

また，.AxisTitle.Orientationで文字列の方向を変更できます．-90～90度までか以下のように設定します．

xlDownward 下へ
xlHorizontal 水平
xlUpward 上へ
xlVertical 垂直