Excelグラフのバーを選択して対応セルを色付けする方法【VBA活用術】

2025年8月6日

Excelのグラフとセルを連動させることで、視覚的なデータ把握がよりスムーズになります。本記事では、グラフのバーをクリックしたときに、対応する元データのセルを塗りつぶす方法を、VBAのコードとともにご紹介いたします。

サンプルコード：バーをクリックしてセルに色を付ける

以下のコードでは、グラフのバーをマウスでクリックした際に、対応するセルを赤く塗りつぶす処理を実装しています。

' グラフイベントを有効にするための変数宣言
Private WithEvents targetChart As Chart

' ブックが開かれたときに、最初のグラフを対象として設定
Private Sub Workbook_Open()
    Set targetChart = Worksheets(1).ChartObjects(1).Chart
End Sub

' グラフ内をクリックしたときのイベント処理
Private Sub targetChart_MouseDown(ByVal Button As Long, _
    ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

    Dim elementID As Long, seriesID As Long, pointIndex As Long
    Dim sourceRange As Range

    ' クリックされた要素を特定
    ActiveChart.GetChartElement x, y, elementID, seriesID, pointIndex

    If elementID = xlSeries Then
        ' 元データのセル範囲を取得
        Set sourceRange = Range(Split(ActiveChart.SeriesCollection(seriesID).Formula, ",")(2))

        ' 一旦すべての塗りつぶしを解除
        sourceRange.Interior.Pattern = xlNone

        ' 対象セルのみ赤く塗りつぶす
        sourceRange.Cells(pointIndex).Interior.Color = RGB(255, 0, 0)
    End If

    ' アクティブセルを元に戻す
    ActiveWindow.RangeSelection.Select
End Sub