Coloring Pie Chart Conditionally in Excel 2010

[rahulbassi]

Hello All,

I have a table which has conditional Formatting. The coloring is based upon formula.
I have generated Pie Chart from it. I need the Pie chart sectors to have color that comes from the conditional formatting of the table.
I'm using Excel 2010.

Kindly suggest.

 

[Worf]

Hello

Sub CF_to_Chart()
Dim L As ListObject, r As Range, i%
Set L = ActiveSheet.ListObjects(1)                          ' table
Set r = L.DataBodyRange.Columns(2)                          ' source data
For i = 1 To r.Rows.count
    ActiveChart.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = _
    r.Cells(i, 1).DisplayFormat.Interior.Color
Next
End Sub