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

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

下図はExcel2016です。

VBAグラフ凡例位置

 

< スポンサーリンク >

 

構文

式.Position

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

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

 

式.top

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

 

式.Left

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

 

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

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

VBA凡例位置

VBA凡例位置

 

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

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

VBAグラフ凡例位置

VBAグラフ凡例位置

 

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

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

VBAグラフ凡例位置

VBAグラフ凡例位置

 

 

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

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

VBAグラフ凡例位置

VBAグラフ凡例位置

 

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

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

VBAグラフ凡例位置

VBAグラフ凡例位置

 

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

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

VBAグラフ凡例位置

VBAグラフ凡例位置

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ