概要
Excelでレポートやダッシュボードを作成する際、グラフの「見た目」はデータの説得力に直結します。デフォルトの設定では、棒グラフが細すぎて余白が目立ったり、ドーナツグラフの穴が大きすぎて中心部分がスカスカに見えたりすることがあります。実は、これらのプロパティはExcelのUIから調整できますが、複数のグラフを一括で修正したり、特定の数値に基づいて動的に変更したりする場合には、VBA（Visual Basic for Applications）による自動化が不可欠です。本記事では、グラフの「系列の重なり」や「要素の間隔」、そして「ドーナツの穴のサイズ」をVBAで精密にコントロールする手法を徹底解説します。
詳細解説：グラフのプロパティを理解する
Excelのグラフオブジェクトは、階層構造になっています。「ChartObject」の中に「Chart」があり、その中に「SeriesCollection」が存在します。今回のテーマであるグラフの太さや穴のサイズを制御するには、このSeriesCollection内の特定のプロパティへアクセスする必要があります。
1. 棒グラフの太さの調整
棒グラフの太さは、実は「GapWidth（要素の間隔）」プロパティで決まります。値が小さいほど棒は太くなり、大きいほど細くなります。また、複数の系列がある場合は「Overlap（系列の重なり）」プロパティを調整することで、棒同士の重なり具合を制御できます。
2. ドーナツグラフの穴のサイズの調整
ドーナツグラフの穴のサイズは「DoughnutHoleSize」プロパティで指定します。これは0から90までのパーセンテージで表され、数値が大きいほど中央の穴が大きくなります。
これらのプロパティは、マクロの記録機能ではうまく取得できないことが多いプロパティです。そのため、VBAのオブジェクトモデルを正しく理解し、明示的に指定する必要があります。
サンプルコード：VBAによるグラフ制御の実装
以下のサンプルコードは、アクティブシートにあるグラフに対して、棒グラフの太さとドーナツグラフの穴サイズをプログラムから変更する一連の処理です。
Sub AdjustGraphStyles()
Dim ws As Worksheet
Dim chtObj As ChartObject
Set ws = ActiveSheet
' シート内のすべてのグラフを走査
For Each chtObj In ws.ChartObjects
' グラフの種類に応じて処理を分岐
Select Case chtObj.Chart.ChartType
' 縦棒グラフの場合
Case xlColumnClustered, xlColumnStacked
With chtObj.Chart.FullSeriesCollection(1)
' 要素の間隔を50%に設定（棒が太くなる）
.GapWidth = 50
' 系列の重なりを20%に設定
.Overlap = 20
End With
' ドーナツグラフの場合
Case xlDoughnut
With chtObj.Chart.FullSeriesCollection(1)
' ドーナツの穴のサイズを30%に設定
.DoughnutHoleSize = 30
End With
End Select
Next chtObj
MsgBox "グラフのスタイル調整が完了しました。"
End Sub
このコードのポイントは、`FullSeriesCollection`を使用している点です。通常の`SeriesCollection`よりも、グラフの要素をより正確に取得できるため、最新のExcel環境ではこちらを使用することが強く推奨されます。
実務アドバイス：なぜVBAで制御すべきなのか
実務において、なぜわざわざVBAを使う必要があるのでしょうか。理由は主に3つあります。
第一に「統一感の維持」です。部署やチームで作成するレポートにおいて、グラフの太さがバラバラであることは、プロフェッショナルな資料としてはマイナス評価です。VBAを使えば、ボタン一つで全シートのグラフスタイルを統一できます。
第二に「動的な可視化」です。例えば、データの件数に応じてグラフの間隔を自動調整したい場合、UIからの手動操作では限界があります。データの抽出範囲が変わるたびに最適な`GapWidth`を計算して適用するような仕組みを構築すれば、ユーザーはグラフの見た目を調整する手間から解放されます。
第三に「隠れたプロパティへのアクセス」です。Excelのバージョンアップに伴い、新しいグラフタイプが登場していますが、すべてのオプションがGUIから簡単に設定できるわけではありません。VBAを使うことで、より高度なデザインや、標準機能では手が届かない細かな調整が可能になります。
また、エラーハンドリングについても意識してください。グラフが存在しないシートでこのマクロを実行するとエラーが発生します。そのため、`On Error Resume Next`を使用してエラーを回避するか、あるいは`If chtObj.Chart.SeriesCollection.Count > 0 Then`といった判定を挟むことで、コードの堅牢性を高めることが重要です。
まとめ
棒グラフの太さやドーナツグラフの穴のサイズは、グラフの見やすさ（視認性）を左右する非常に重要な要素です。これらをVBAで制御することで、単なる「データの集計」から「洗練されたデータビジュアライゼーション」へと一歩進むことができます。
今回紹介した`GapWidth`と`DoughnutHoleSize`は、グラフ操作の基本ですが、これらを使いこなすだけで資料のクオリティは劇的に向上します。ぜひ、日々の業務で作成するダッシュボードや定型レポートに組み込み、効率的かつ美しいグラフ作成を実現してください。VBAは、単なる自動化ツールではなく、あなたのプレゼンテーション能力を最大限に引き出すための強力な武器となるはずです。
