なぜ、グラフの「太さ」や「穴の大きさ」を調整するのか？
Excelでグラフを作成した際、「棒グラフが細すぎて見栄えが悪い」「ドーナツグラフの穴が大きすぎて中心の数値が見にくい」と感じたことはありませんか？
標準設定のグラフでは、データ数やシートのレイアウトによって自動的にバランスが決まりますが、プレゼン資料やレポートでは、情報の重要度に合わせて「視覚的な強調」が必要です。今回紹介する設定は、グラフの見た目を直感的に調整し、読み手に「伝わる」資料を作るための必須テクニックです。
基礎知識：グラフの「系列のオプション」とは
Excelのグラフは、データそのものを示す「データ系列」と、それを囲む「グラフエリア」などの要素で構成されています。
今回調整する「棒グラフの幅」や「ドーナツの穴」は、この「データ系列の書式設定」の中にある「系列のオプション」で制御されています。
要素の間隔：棒グラフの棒同士の隙間を調整します。数値を小さくするほど棒は太くなり、大きくするほど細くなります。
ドーナツの穴の大きさ：ドーナツの内側の空白面積をパーセンテージで指定します。数値を小さくすれば穴が埋まり、大きくすれば細いリング状になります。
実装：VBAでグラフの見た目を自動化する
実務では、毎回手作業で調整するのではなく、VBAで一括設定することをおすすめします。特に、データが更新されるたびにグラフの書式がリセットされる場合や、複数のグラフを同じ基準で統一したい場合に非常に便利です。
以下のサンプルコードは、アクティブなシートにある最初のグラフを対象に、棒グラフの太さとドーナツグラフの穴の大きさを制御するものです。
サンプルプログラム
Sub AdjustGraphAppearance()
‘ グラフオブジェクトを格納するための変数
Dim cht As ChartObject
‘ シート上の1番目のグラフを対象にする（存在しない場合は終了）
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub
Set cht = ActiveSheet.ChartObjects(1)
‘ グラフの種類を判定して処理を分岐
Select Case cht.Chart.ChartType
‘ 集合棒グラフ（xlColumnClustered）の場合
Case xlColumnClustered
‘ 要素の間隔を50%に設定（数値を小さくすると棒は太くなる）
cht.Chart.SeriesCollection(1).Format.Line.Visible = msoFalse
cht.Chart.ChartGroups(1).GapWidth = 50
MsgBox “棒グラフの太さを調整しました。”
‘ ドーナツグラフ（xlDoughnut）の場合
Case xlDoughnut
‘ ドーナツの穴の大きさを30%に設定
cht.Chart.ChartGroups(1).DoughnutHoleSize = 30
MsgBox “ドーナツの穴の大きさを調整しました。”
Case Else
MsgBox “対応していないグラフの種類です。”
End Select
End Sub
応用・注意点：現場で陥りやすい罠
1. グラフの種類に注意：上記コードは「集合棒グラフ」や「ドーナツグラフ」を前提としています。積み上げ棒グラフなど、別のグラフ形式で実行するとエラーになる可能性があるため、Select Case 文で種類をチェックする構成にしています。
2. データ系列のインデックス：SeriesCollection(1) は1番目の系列を指します。もし複数の系列がある場合は、ループ処理（For Each）を使って全ての系列に適用するようにカスタマイズしてください。
3. 操作の確定：VBAで書式を変更した場合、手動で設定画面を開かなくても即座にグラフに反映されます。もし意図した見た目にならない場合は、マクロ記録機能を使って、対象のグラフのプロパティを一度確認してみるのが近道です。
これらの設定をマスターすることで、グラフ作成の時間を大幅に短縮し、より洗練されたビジネス資料を作成できるようになります。ぜひ日々の業務で活用してください。
