VBA～グラフのサイズを変更しよう～Excel

VBAでグラフのサイズを設定する方法を解説します。

グラフのサイズを変更したい場合はChartObjectsのHeightプロパティで高さを設定し、Widthプロパティで幅を設定します。

数値で設定

下の画像において下のコードを実行するとグラフの高さが163.4になり、幅が271.2に設定されます。

Sub test()

With ActiveSheet.ChartObjects(1)

.Height = 163.4
.Width = 271.2

End With

End Sub

グラフのインデックス番号はグラフの作成順に割り振られます。今回はグラフが1つしかないのでグラフのインデックス番号は1となりChartObjects(1)となります。

セル範囲の高さ、幅に合わせる

下のコードを実行するとグラフの幅がセルF2からセルJ10の範囲の高さと幅に設定されます。

Sub test2()

With ActiveSheet.ChartObjects(1)

.Height = Range("F2:J10").Height
.Width = Range("F2:J10").Width

.Top = Range("F2").Top
.Left = Range("F2").Left

End With

End Sub