Excelでセルの色に基づいてチャートを色付けするにはどうすればよいですか？

Excelで標準的なチャート（例えば、列または棒グラフ）を作成すると、データ系列やデータポイントにはExcelのデフォルトの色が割り当てられますが、それはデータ範囲内の塗りつぶしの色と必ずしも一致しません。しかし、ダッシュボード、レポート、データ可視化などの多くのシナリオでは、チャートのバーが元のセルに適用された色と正確に一致することが求められます。これにより、視覚の一貫性が保たれ、データを一目で解釈しやすくなったり、色を手がかりとしたカテゴリーグループの強化につながります。たとえば、スクリーンショットに示すように、チャートの各列が要約表に適用された色分けを反映することを望むかもしれません。Excelには、セルの塗りつぶしの色（特に手動で設定されたもの）を自動的にチャート要素にマッピングする直接的な機能は提供されていないため、セルの色が手動で適用された場合や数式やルールに基づいている場合など、いくつかの異なる方法が必要です。以下では、さまざまなシナリオで効果的にこの対応を実現するための複数の実用的な解決策を提供します。

VBAコードを使用して、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

素晴らしい機能を使用して、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

VBAコードを使用して、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

セルの色に基づいて1つのデータ系列でチャートを色付けする

もしチャートのバーに、対応するセルの塗りつぶしの色を継承させたい場合、かつ色指定が手動で行われている（条件付き書式や数式によるものではない）場合は、VBAを使用してチャートのバーの色を元のセルの色と同期させることが可能です。この技術は、視覚的な整合性が明確さや報告基準において重要となる1系列のチャートに特に役立ちます。

1. まず、データを選択し、棒グラフまたは列グラフを作成します。これを行うには、関連するセルを選択し、「挿入」→「列または棒グラフの挿入」をクリックします。下記のスクリーンショットのようなデフォルトのチャートが表示されるはずです：

2. ALT + F11 を押して、Microsoft Visual Basic for Applications (VBA) エディターを開きます。

3. VBAウィンドウで、「挿入」→「モジュール」をクリックします。その後、次のコードをモジュールウィンドウにコピー＆ペーストします。このスクリプトは、各チャートバーを対応するセルの塗りつぶしの色に一致させるものです。

VBAコード: 1つのデータ系列に基づいてセルの色でチャートバーを色付けする：

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

4. コードを入力したら、F5キーを押してマクロを実行します。以下のスクリーンショットに示すように、チャートバーが元のセルの塗りつぶしの色を反映するようになります：

この方法は、セルの塗りつぶしの色が手動で設定され、頻繁に手動での調整が予想されるチャートに有利です。ただし、セルの色が変わった場合、リンクが動的ではないため、VBAを再実行してチャートを更新する必要があります。また、コードを保持するために、ワークブックをマクロ有効ファイル（.xlsm）として保存することを忘れないでください。

セルの色に基づいて複数のデータ系列でチャートを色付けする

チャートに複数のデータ系列がある場合（例：時間軸上の複数の製品や異なるカテゴリ）、同様のVBAアプローチを使用して、各バーのセグメントやデータポイントをその元のセルの塗りつぶしの色に対応させることができます。これにより、レポートが視覚的に整えられ、ワークシートとチャート間でデータを相互参照しやすくなります。

1. 下記のように、データをセットアップし、複数のデータ系列を持つ棒グラフまたは列グラフを作成します：

2. ALT + F11 を押して、VBAエディタを開きます。

3. VBAウィンドウで、「挿入」→「モジュール」をクリックし、次のコードを貼り付けます：

VBAコード: 複数のデータ系列に基づいてセルの色でチャートバーを色付けする：

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. F5キーを押してこのコードを実行します。以下に示すように、チャートの系列がデータ範囲のセルの塗りつぶしの色を反映します：

この手法は手動で色付けされたデータに対して完全な制御と柔軟性を与えますが、条件付き書式や数式によって自動生成される色には対応していません。そのような状況では、より動的なオプションについては、後述の数式ベースおよび条件付き書式の解決策をご覧ください。

素晴らしい機能を使って、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

VBAはチャートの色をセルの塗りつぶしと同期させることができますが、手動でコードを実行する必要があり、一部のユーザーはマクロやVBAのセキュリティ警告に不安を感じるかもしれません。より洗練され、インタラクティブなアプローチを探している場合、Kutools for Excelの「セルの色に基づいてチャートの色を変更」機能は効率的な解決策を提供します。このツールは、1つまたは複数のデータ系列を持つチャートに関係なく、セルの塗りつぶしの色を対応するチャート要素に自動的に適用します。さらに、後でセルの色が更新された場合でも（簡単な再適用でマッピングが更新されます）動作します。

Kutools for Excelをインストールしたら、次のように進んでください：

1. 色付けしたいチャートを挿入します。チャートを選択し、「Kutools」→「グラフ」→「グラフツール」→「セルの色に基づいてチャートの色を変更」をクリックします（下記画像参照）：

2. ダイアログボックスが表示されたら、単純に「OK」をクリックしてください。

3. 次の例に示すように、チャートは即座にセルの色と一致して更新されます：

セルの色に基づいて1つのデータ系列でチャートを色付けする

セルの色に基づいて複数のデータ系列でチャートを色付けする

この機能は、チャートの色を自動的に一致させる必要があり、データの更新に関係なく再利用可能なソリューションを求める人にとって理想的です。手動での書式設定やマクロの実行と比較して大幅な時間節約ができ、複数の人々がデータやチャートのプレゼンテーションを編集する共同作業環境で特に役立ちます。

今すぐ Kutools for Excel をダウンロードして無料体験しよう！

関連するチャートの記事：