VBA～補助縦棒付き円グラフを作ろう～Excel

VBAで補助縦棒付き円グラフを作る方法を解説します。

下の画像において下のコードを実行すると補助縦棒付き円グラフが作成されます。

Sub test1()

With ActiveSheet.Shapes.AddChart.Chart

.ChartType = xlBarOfPie
.SetSourceData Range(Range("A4"), Range("B13"))

.SeriesCollection(1).HasDataLabels = True
.SeriesCollection(1).DataLabels.ShowCategoryName = True
.ChartColor = 17

.HasTitle = True
.ChartTitle.Text = Range("A1")

End With

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

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

.ChartType = xlBarOfPie

グラフの種類を設定しています。xlBarOfPieは補助縦棒付き円グラフになります。

.SetSourceData Range(Range("A4"), Range("B13"))

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

.SeriesCollection(1).HasDataLabels = True

データラベルを表示しています。

.SeriesCollection(1).DataLabels.ShowCategoryName = True

項目名をグラフに表示しています。

.ChartColor = 17

データがみにくいのでグラフの配色を変えていいます。

.HasTitle = True

タイトルの要素を追加しています。

.ChartTitle.Text = Range("A1")

タイトルをセルA1に設定しています。つまり商品X市場シェアになります。