VBA～円グラフのデータラベルを移動しよう～Excel

VBAで円グラフのデータラベルを移動する方法を解説します。

円グラフのデータラベルを移動したい場合はSeries.PointsメソッドのDataLabel.LeftプロパティとDataLabel.Topプロパティで設定します。Pointsオブジェクトの()内にはポイントインデックス番号を指定します。ポイントインデックス番号は凡例が横方向に並んでいる場合は左から1,2,3・・・となり、凡例が縦方向に並んでいる場合は上から1,2,3・・・となります。

既にグラフがある場合

下の画像において下のコードを実行すると第二四半期のデータラベルが移動します。

Sub test1()

ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points(2).DataLabel.Left = 160
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points(2).DataLabel.Top = 115

End Sub

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

グラフ作成時に円グラフのデータラベルを移動

下のコードを実行するとグラフ作成時にデータラベルが移動します。

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

.ChartType = xlPie
.SetSourceData Range(Range("A2"), Range("B5"))

.SeriesCollection(1).HasDataLabels = True
.SeriesCollection(1).Points(2).DataLabel.Left = 160
.SeriesCollection(1).Points(2).DataLabel.Top = 115

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

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

.ChartType = xlPie

グラフの種類を設定しています。xlPieは円グラフになります。

.SetSourceData Range(Range("A2"), Range("B5"))

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

.SeriesCollection(1).HasDataLabels = True

円グラフにデータラベルを追加しています。

.SeriesCollection(1).Points(2).DataLabel.Left = 160

第二四半期のデータラベルの左辺の位置を設定しています。

.SeriesCollection(1).Points(2).DataLabel.Top = 115

第二四半期のデータラベルの上辺の位置を設定しています。