Excel VBA グラフの凡例の位置を設定する-Position、Top、Left

Excel VBAでグラフの凡例の位置を設定する記録です。

凡例の上下左右のどこに配置するかは「Position」プロパティ、上からの位置は「top」プロパティ、左からの位置は「Left」プロパティを使います。

< スポンサーリンク >

「Position」「top」「Left」プロパティ構文

グラフの凡例の位置を表すXlLegendPosition値を設定、または取得します。

【XlLegendPosition】
xlLegendPositionBottom＝グラフの下
xlLegendPositionCorner＝グラフの輪郭線の右上隅
xlLegendPositionLeft＝グラフの左
xlLegendPositionRight＝グラフの右
xlLegendPositionTop＝グラフの上

グラフの上端から凡例の上端までの距離をポイント単位で表す倍精度浮動小数点型（Double）の値を取得、または設定します。

グラフの左端から凡例の左端までの距離をポイント単位で表す倍精度浮動小数点型（Double）の値を取得、または設定します。

VBAでグラフの凡例の位置を設定する例

アクティブシートの１つ目のグラフの凡例の位置をグラフの下に設定します。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.Legend.Position = xlLegendPositionBottom
End Sub

アクティブシートの１つ目のグラフの凡例の位置をグラフの輪郭線の右上隅に設定します。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.Legend.Position = xlLegendPositionCorner
End Sub

アクティブシートの１つ目のグラフの凡例の位置をグラフの左に設定します。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.Legend.Position = xlLegendPositionLeft
End Sub

アクティブシートの１つ目のグラフの凡例の位置をグラフの右に設定します。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.Legend.Position = xlLegendPositionRight
End Sub

アクティブシートの１つ目のグラフの凡例の位置をグラフの上に設定します。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.Legend.Position = xlLegendPositionTop
End Sub

アクティブシートの１つ目のグラフエリアの中央に設定します。

Sub test()
    With ActiveSheet.ChartObjects(1).Chart
        .Legend.Top = (.ChartArea.Height – .Legend.Height) / 2
        .Legend.Left = (.ChartArea.Width – .Legend.Width) / 2
    End With
End Sub