Excel VBA グラフの凡例の高さや幅を取得、設定する-Height、Width

Excel VBAでグラフの凡例の高さを取得、設定するには「Legend」オブジェクトの「Height」プロパティ、幅を取得、設定するには「Legend」オブジェクトの「Width」プロパティを使います。

下図はExcel2016です。

VBAグラフ凡例高さ幅

 

< スポンサーリンク >

 

構文

高さ

式.Height

式.Width

オブジェクトの幅をポイント単位で返します。 読み取り専用です。

 

アクティブシートの1つ目のグラフの凡例の高さをメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Chart.Legend.Height
End Sub

VBAグラフタイトル凡例高さ幅

VBAグラフタイトル凡例高さ幅

 

アクティブシートの1つ目のグラフの凡例の幅をメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Chart.Legend.Width
End Sub

VBAグラフタイトル凡例高さ幅

VBAグラフタイトル凡例高さ幅

 

アクティブシートの1つ目のグラフの凡例の高さを50、幅を50に設定してみます。
※下図の例は、高さが足りないので、高さは50にはなっていません。

Sub test()
    With ActiveSheet.ChartObjects(1).Chart.Legend
        .Height = 50
        .Width = 50
    End With
End Sub

VBAグラフタイトル凡例高さ幅

VBAグラフタイトル凡例高さ幅

 

アクティブシートの1つ目のグラフの凡例の高さと幅を2つ目のグラフと同じ高さと幅に設定してみます。

Sub test()
    With ActiveSheet.ChartObjects(1).Chart.Legend
        .ChartObjects(1).Chart.Legend.Height = .ChartObjects(2).Chart.Legend.Height
        .ChartObjects(1).Chart.Legend.Width = .ChartObjects(2).Chart.Legend.Width
    End With
End Sub

VBAグラフタイトル凡例高さ幅

VBAグラフタイトル凡例高さ幅

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ