Sub SetChartColorsFromDataCells()
 
    If TypeName(Selection) <> "ChartArea" Then
        MsgBox "Сначала выделите диаграмму!"
        Exit Sub
    End If
    Set c = ActiveChart
    For j = 1 To c.SeriesCollection.Count
        f = c.SeriesCollection(j).Formula
        m = Split(f, ",")
        Set r = Range(m(2))
 
        For i = 1 To r.Cells.Count
            c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
                r.Cells(i).Interior.Color
        Next i
    Next j
End Sub