Výber prvku prostredníctvom číselníka poriešiš vložením ovládacieho prvku ActiveX vo Vývojárovi s patričným naviazaním na záhlavie zdrojovej tabuľky.
Zmena tohto prvku bude spúšťať makro, ktoré bude vyzerať nejak takto:

Sub Makro1()
    ActiveSheet.ChartObjects("Graf 1").Activate
    ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Solid
    End With
End Sub

pričom Points(1) tu určuje, že na červeno sa zafarbí stĺpec 1
Ešte treba ošetriť návrat pôvodnej farby červeného stĺpca v prípade, že sa následne zvolí iný stĺpec.