Изменить цвета ряда диаграмм с накоплением в соответствии с диапазоном ячеек

Question

У меня проблемы с получением следующего кода для сотрудничества. Я пытаюсь получить ряд областей в диаграмме с накоплением областей, чтобы изменить цвет так, чтобы соответствовать цветам в диапазоне ячеек данного столбца. Код хорошо работает на гистограмме, но на диаграмме с накоплением это не так. Я также попытался изменить диаграмму на гистограмму, изменить цвета, затем изменить ее обратно на диаграмму с областями с накоплением, но хотя цвета меняются при преобразовании диаграммы в гистограмму, она меняется обратно, как только я возвращаюсьэто назад к диаграмме области с накоплением. Любая помощь будет принята с благодарностью.

Option Explicit
Sub AreabyCellColor()
    Dim Chrt As Chart
    Dim i As Long, CellRows As Long, j As Long, rng As Range
    On Error Resume Next
    Set Chrt = ActiveSheet.ChartObjects("Chart 1").Chart
    If Chrt Is Nothing Then Exit Sub
    With Chrt
        Set rng = Range(Cells(114, 2), Cells(124, 2))
        CellRows = rng.rows.Count
        Set rng = rng(1)
        For i = 1 To CellRows
            For j = 1 To ActiveChart.SeriesCollection.Count
                .SeriesCollection(i).Points(j).Interior.ColorIndex = rng.Offset(i - 1, 0).Interior.ColorIndex
            Next
        Next
    End With
End Sub