VBA～グラフの位置を変更しよう～Excel

VBAでグラフの位置を変更する方法を解説します。

グラフに位置を設定したいChartObjectsのTopプロパティとLeftプロパティを設定します。

Topプロパティは指定したセルの上辺にグラフの上辺を合わせます。

Leftプロパティは指定したセルの左辺にグラフの左辺を合わせます。

既にグラフがある場合

下の画像において下のコードを実行するとセルA12の左上にグラフの左上が重なります。

Sub test()

With ActiveSheet.ChartObjects(1)

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

End With

End Sub

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

グラフ作成時に位置も変更する

下のコードを実行するとグラフ作成時にグラフの位置も設定されます。

Sub test1()

With ActiveSheet.Shapes.AddChart.Chart

.ChartType = xlColumnClustered
.SetSourceData Range(Range("A3"), Range("D10"))

.ChartArea.Top = Range("A12").Top
.ChartArea.Left = Range("A12").Left

End With

End Sub

コードの説明

WithからEnd Withまでがグラフの作成、設定です。

ActiveSheet.Shapes.AddChart.Chart

グラフを書くためのキャンバスを作成しています。

.ChartType = xlColumnClustered

グラフの種類を設定しています。xlColumnClusteredは棒グラフの集合縦棒になります。

.SetSourceData Range(Range("A3"), Range("D10"))

グラフのデータ範囲を設定しています。

.ChartArea.Top = Range("A12").Top

作成したグラフの上辺をセルA12の上辺に合わせています。

.ChartArea.Left = Range("A12").Left

上のコードのTopがLeftになっただけです。作成したグラフの左辺をセルA12の左辺に合わせています。