VBA～グラフの中に値を表示しよう～Excel

VBAでグラフの中に値を表示する方法を解説します。

グラフの中に値を表示したい場合、ChartオブジェクトのSeries.HasDataLabelsプロパティで設定できます。SeriesCollectionの()内にはインデックス番号か名前を指定します。インデックス番号は凡例が横方向に並んでいる場合は左から1,2,3・・・となり、凡例が縦方向に並んでいる場合は上から1,2,3・・・となります。

既にグラフがある場合

下の画像において下のコードを実行するとグラフの中に値が表示されます。

Sub test1()

With ActiveSheet.ChartObjects(1).Chart

.SeriesCollection(1).HasDataLabels = True
.SeriesCollection(2).HasDataLabels = True
.SeriesCollection(3).HasDataLabels = True

End With

End Sub

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

系列のデータラベルの位置を設定

系列のデータラベルの位置を設定したい場合DataLabels.Positionプロパティで設定できます。xlLabelPositionCenter,xlLabelPositionInsideBase,xlLabelPositionInsideEnd,xlLabelPositionOutsideEndがそれぞれ中央揃え、内側、内側下、外側に対応しています。

下の画像において下のコードを実行すると商品Aのデータラベルが中央揃えになります。

Sub test2()

With ActiveSheet.ChartObjects(1).Chart

.SeriesCollection(1).HasDataLabels = True
.SeriesCollection(1).DataLabels.Position = xlLabelPositionCenter

End With

End Sub

グラフ作成時にグラフの中に値を表示

下のコードを実行するとグラフ作成時にグラフの中に値を表示します。

Sub test3()

With ActiveSheet.Shapes.AddChart.Chart

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

.SeriesCollection(1).HasDataLabels = True
.SeriesCollection(2).HasDataLabels = True
.SeriesCollection(3).HasDataLabels = True

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

グラフエリアを追加しています。

.ChartType = xlColumnClustered

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

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

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

.SeriesCollection(1).HasDataLabels = True

商品Aの系列にデータラベルを設定しています。

.SeriesCollection(2).HasDataLabels = True

商品Bの系列にデータラベルを設定しています。

.SeriesCollection(3).HasDataLabels = True

商品Cの系列にデータラベルを設定しています。