Microsoft Office Forums - View Single Post

p45cal · 03-04-2019, 06:04 AM

I can't make the name change colour but I can make the appropriate bar on the chart change colour. Test the attached which has this macro:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
  Set cht = ChartObjects("Chart 3").Chart
  Set pt = cht.PivotLayout.PivotTable
  x = Application.Match(Target.Value, pt.PivotFields("Last").DataRange, 0)
  With cht
    .FullSeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(91, 155, 213)
    If Not IsError(x) Then .FullSeriesCollection(1).Points(Application.Match(Target.Value, pt.PivotFields("Last").DataRange, 0)).Format.Fill.ForeColor.RGB = RGB(197, 90, 17)
  End With
End If
End Sub