Color Chart Columns by Conditionally Formatted Cell Color

[mancubus]

adopted from:

https://www.get-digital-help.com/201...on-cell-color/

Sub vbax_61383_Color_Chart_Columns_Based_on_Conditional_formatting()
    
    Dim vAddress As Range
    Dim i As Long, ColorVal As Long
    Dim R As Long, G As Long, B As Long
    
    With Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1) 'change sheet and chart references to suit
        Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1)).Columns(2) 'X values from col A and B. so set range to the second col, ie col B
        For i = 1 To vAddress.Cells.Count
            ColorVal = vAddress.Cells(i).DisplayFormat.Interior.Color 'Displayformat to return conditional formatting color
            R = ColorVal Mod 256 'return RED value from ColorVal
            G = (ColorVal \ 256) Mod 256 'return GREEN value from ColorVal
            B = (ColorVal \ 256 \ 256) Mod 256 'return BLUE value from ColorVal
            .Points(i).Format.Fill.ForeColor.RGB = RGB(R, G, B)
        Next i
    End With

End Sub