Chart Column Fill

[mikeymay]

Is it possible using VBA to apply gradient colour changes to a chart column?

The column has a 2 colours ranging from 0% to 100%

What I want to acheive is to apply a 3rd colour when then column value breaches a value.

E.g.
Value to check against is 64
Value of the column to apply colours to is 100

0% to 64% will be the colours
65% to 100% will be the third colour

When I have recorded the code tells me nothing on how to 'code' this

ActiveSheet.ChartObjects("chtBFSpent").Activate
ActiveChart.FullSeriesCollection(2).Select
ActiveChart.FullSeriesCollection(2).Points(1).Select
Selection.Format.Fill.Visible = msoTrue
Selection.Format.Fill.Visible = msoTrue
Selection.Format.Fill.Visible = msoTrue
Selection.Format.Fill.Visible = msoTrue

TIA

 

[GraH]

Another take on this would be use a stacked chart. And have the parts coloured in differently.
You would need to do some calculations to create the elements of the stacked series.