Excel でグラフの各データ要素に個別に色を設定するにはどうすればよいですか？
Excel で単一系列の縦棒グラフ、横棒グラフ、または折れ線グラフを作成すると、系列内のすべてのデータ要素がデフォルトで同じ色で表示されます。こうした均一な配色では、視覚的な魅力に欠けたり、個々のデータ値を瞬時に識別しにくくなったりすることがあります。そのため、多くのユーザーは各データ要素に独自の色を適用し、グラフをより魅力的でプロフェッショナルな見た目に仕上げるとともに、トレンドや外れ値、特定のカテゴリを際立たせて可読性を高めたいと考えています。
しかし、標準の書式設定オプションを使って個別のデータ要素の色を変更しようとすると、Excel はその変更を対象の要素だけでなく、データ系列全体に適用してしまうことに気づくでしょう。この制限は、次のようなビジュアル効果を作成したい場合に不便に感じられることがあります：
 |
 |
 |
本記事では、グラフの各データ要素に多色効果を実現するための実用的なソリューションをいくつかご紹介します。Excel の標準機能に加え、VBA コードを使ったより高度な手法も網羅。これらのテクニックを使えば、データをより効果的に伝えられるだけでなく、プレゼンテーションやレポートで印象に残るグラフを作成できます。
縦棒／横棒／折れ線グラフでデータ要素ごとに色を変える
縦棒グラフ、横棒グラフ、または折れ線グラフの各データ要素に手動で異なる色を適用したい場合は、Excel の「データ要素ごとに色を変える」機能が単一系列のグラフに対して迅速かつ効果的な解決策を提供します。この機能は、データ要素の数が少なく、各値を簡単に視覚的に区別したい場合に特に便利です。ただし、Excel の既定のカラーパレットやテーマの範囲内でのみ動作するため、無制限の色カスタマイズはできません。
各データ要素を異なる色で色分けするには、次の手順に従ってください：
1．まず、グラフ内の任意のデータ系列（またはデータ要素）をクリックして、そのデータ系列全体を選択します。次に、右クリックしてコンテキストメニューを開き、データ系列の書式設定を選択してください。単一のシリーズを選択する際に問題が発生する場合は、データ要素をダブルクリックせず、一度だけクリックしてください。
2．データ系列の書式設定ダイアログボックスで、左側のペインから塗りつぶしをクリックし、右側のセクションにあるデータ要素ごとに色を変えるチェックボックスをオンにします。これにより、系列内の各データ要素に異なる既定のテーマカラーが即座に適用されます。
ヒント：Excel 2013 以降をご利用の場合、インターフェースが若干異なることがあります。ここでは、データ系列の書式設定ペインで、塗りつぶしと線アイコン（ペイントバケツ）を選択します。「塗りつぶし」セクションには、データ要素ごとに色を変えるオプションがあります。チェックすると、その設定が即座に適用されます。スクリーンショットをご参照ください：
3．閉じるをクリックしてダイアログを閉じると、グラフの各データ要素が異なる色で表示されます。なお、割り当てられる色は現在のブックテーマに基づいています。
4．デフォルトの配色が気に入らない場合は、テーマをカスタマイズして簡単に変更できます。ページレイアウトタブに移動し、テーマをクリックして、お好みの配色テーマを選んでください。これにより、すべてのチャートの色が選択したテーマに基づいて自動的に更新されます。プレゼンテーションやブランド要件にぴったりの配色を素早く試せる、とても便利な方法です。
5．テーマを変更すると、グラフのデータバーまたはデータ系列が選択した新しいカラーパレットで表示されます。
使用上のヒント：
• 「データ要素ごとに色を変える」オプションは、縦棒グラフだけでなく、横棒グラフやExcel の折れ線グラフにもご利用いただけます。
• 「データ要素ごとに色を変える」機能は、基本的なグラフに素早く簡単に適用できますが、各データ要素の色を完全に細かく制御することはできません。特定のブランドカラーを使用したい場合や、個々の値に特定の色を割り当てたい場合は、各データ要素を手動で書式設定するか、以下で紹介するより高度な方法をご検討ください。
• この機能は単一系列のグラフでのみ動作します。複数系列の複雑なグラフや、きめ細かい色の制御が必要な場合は、以下の拡張ソリューションをご参照ください。
トラブルシューティング：
• 「データ要素ごとに色を変える」オプションがグレーアウトしている場合は、グラフに複数の系列が含まれていないか確認してください。このオプションは単一系列のグラフでのみご利用いただけます。
• 一部の古いExcel バージョンでは、名称やアイコンが若干異なる場合があります。類似のオプションにマウスカーソルを合わせて、その機能を確認してください。
• グラフが即座に更新されない場合は、グラフを再度クリックするか、ワークシートを再読み込みしてお試しください。
まとめと推奨事項：この方法は、小規模なデータセットで各データ要素に素早く簡単に色のバリエーションを適用したい場合、かつ個々のデータ要素にカスタム配色が不要な場合に最もおすすめです。
VBA：グラフのデータ要素にカスタムカラーを割り当てる
Excel の標準機能「データ要素ごとに色を変える」やグラフテーマでは、精度が不十分な場合があります。たとえば、ブランドカラーに合わせたい、外れ値を強調したい、あるいは標準化されたカラーコードを使用したいなど、各データ要素に特定の色を適用したいケースです。こうした場合には、VBA を使って各データ要素の色をプログラムで設定できます。この方法は、大規模なデータセットを扱うときや、カスタムカラーを繰り返し適用する必要があるときに特に役立ちます。
適用シナリオ：各データ要素に正確な色（RGB または HEX コード指定）を割り当てたい場合や、個別に手動で書式設定することなく自動的に色を適用したい場合に最適です。ただし、マクロのセキュリティ許可を有効にする必要があり、またマクロコードを編集するにはある程度の VBA 知識が求められます。
1．開発者向けツール > Visual Basicをクリックします。Microsoft Visual Basic for Applicationsウィンドウが表示されたら、挿入 > 標準モジュールをクリックし、モジュールに以下のコードを入力します：
Sub SetChartPointColors()
' Assigns custom colors to each data point in the first series of the first chart on the active sheet
Dim cht As ChartObject
Dim i As Integer
Dim colorArray As Variant
' Define custom color codes (RGB values or color constants)
colorArray = Array(RGB(255, 0, 0), RGB(0, 176, 80), RGB(0, 112, 192), RGB(255, 192, 0), RGB(112, 48, 160))
On Error Resume Next
Set cht = ActiveSheet.ChartObjects(1)
If cht Is Nothing Then
xTitleId = "KutoolsforExcel"
MsgBox "No chart found on the active sheet.", vbExclamation, xTitleId
Exit Sub
End If
For i = 1 To cht.Chart.SeriesCollection(1).Points.Count
cht.Chart.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = colorArray((i - 1) Mod UBound(colorArray) + 1)
Next i
MsgBox "Custom colors have been assigned to data points.", vbInformation, xTitleId
End Subパラメーターの説明とカスタマイズのヒント：
•colorArrayには、データ要素に割り当てる色の値が格納されます。これらの RGB タプルを編集すれば、必要な正確な色に簡単に調整できます。
•ActiveSheet.ChartObjects(1)は、アクティブなワークシート上の最初のグラフオブジェクトを対象とします。複数のグラフがある場合は、この参照を適宜調整してください。
2．コードを実行するには、VBA で
「実行」ボタンまたはF5キーを押します。マクロは、グラフの最初の系列にある各データ要素にカスタムパレットを適用します。配列内の色の数よりもデータ要素が多い場合、マクロは指定された色を繰り返し使用します。
注意点とトラブルシューティング：
• Excel の設定でマクロの権限が有効になっていることをご確認ください。マクロはデフォルトで無効になっています。
• 「グラフが見つかりません」と表示された場合は、対象のグラフを含むワークシートをアクティブにしてください。
• RGB カラーは必要に応じて調整可能です。Excel のカラーピッカーやオンラインツールを使って、希望の RGB コードを簡単に見つけられます。
• VBA をさらに拡張すれば、色選択のプロンプトを表示したり、特定のグラフや系列にのみ適用したりすることもできます。
まとめと推奨事項：VBA を活用した方法は、データ要素の色付けを自動化したい場合や、頻繁に更新されるグラフ・多くの値を含むグラフで正確な制御が必要なシーンに最適です。
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行 ｜ コード生成｜ カスタム数式作成 ｜ データ分析とチャート生成｜ 拡張機能呼び出し… |
| 人気の機能：検索・ハイライト、または重複をマーキング ｜ 空白行を削除する ｜ データを失うことなく列の結合またはセルを ｜ 数式を使用しない四捨五入... | |
| スーパー LOOKUP：複数条件 VLookup ｜ 複数値 VLookup ｜ 複数シート間 VLookup ｜ ファジーマッチ.... | |
| 高度なドロップダウンリスト：ドロップダウンリストをすばやく作成 ｜ 連動型ドロップダウンリスト ｜ 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較... | |
| 注目の機能：グリッドフォーカス ｜ デザインビュー ｜強化された数式バー ｜ ワークブックとシートマネージャー ｜ リソースライブラリ（オートテキスト）｜ 日付ピッカー ｜ ワークシートの統合 ｜ 暗号化／セルの復号化 ｜ リストからメール送信 ｜ スーパーフィルター ｜ 特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。 | |
| トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得