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市場シェアになります。