Vba Excel 2010, копирование цвета

Формулировка задачи:

Всем привет!
Ищу возможность "копирования" цвета заливки ячейки (получение значений RGB). Задача усугубляется необходимостью "копирования" цвета заливки с gradient (цвета переливаются). Подскажите вариант решения задачи.

Решение задачи: «Vba Excel 2010, копирование цвета»

textual
                            Листинг программы 
                        

                            Sub X()
    Dim objSeries As Series
    Dim rngColours As Range
    Dim lngIndex As Long
    
    Set rngColours = Range("B2:B5")
    lngIndex = 1
    With ActiveChart
        For Each objSeries In .SeriesCollection
            objSeries.Format.Fill.ForeColor.RGB = rngColours.Cells(lngIndex).Interior.Color
            lngIndex = lngIndex + 1
        Next
    End With
    
End Sub

                        