Inverting Chart Colour

[DLemcke]

I would like to be able to add inverted chart colours with vba using RGB

Here is what I tried to do but is not working correctly

The first part is supposed to set the positive colour and the second part is supposed to set the negative colour

ActiveSheet.ChartObjects("Chart 6").Activate
    ActiveChart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 153, 51)


    ActiveChart.FullSeriesCollection(1).Points(1).Select
    With Selection
        .InvertIfNegative = True
        .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    End With

 

[wstcwpsyy]

Hello, DLemcke

I'm not sure if you have already solved this probllem.
If not I am going to share the solution.

The negative color is not able to be modified by typing
⇒ .FullSeriesCollection(1).InvertIfNegative = True　　
.format.fill.forecolor.rgb =

You can try this, it works for me : )
⇒ .FullSeriesCollection(1).InvertIfNegative = True　　
.FullSeriesCollection(1).InvertColor = RGB(xx, xx, xx)

Series.InvertColor プロパティ (PowerPoint)

Office VBA リファレンス トピック

docs.microsoft.com

Good luck.