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

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

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

< スポンサーリンク >





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

式.Position

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

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

 

式.top

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

 

式.Left

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

 

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

アクティブシートの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グラフ凡例位置

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします