Изменение цвета столбцов в столбчатой ​​диаграмме

Я создал программу VBA для Excel 2007, которая автоматически создает гистограммы для рентабельности инвестиций на основе до 52 различных вкладок в активной книге. Я близок к завершению, и единственная вещь, которую я не могу понять, - это как изменить цвета гистограмм.

Графики создаются в своей собственной подфункции, вызываемой с помощью подобного вызова. Каждая переменная меняется при каждом вызове.

Call AddChartObject(1, 1, "Example", extraWeeks, weekDifference)

Моя вызываемая им вспомогательная функция выглядит так.

Sub AddChartObject(j As Integer, k As Integer, passedChartTitle As String, xtraWks As Integer, ttlWks As Integer)

    Dim topOfChart As Integer

    topOfChart = 25 + (350 * j)

    'Adds bar chart for total sales

    With ActiveSheet.ChartObjects.Add(Left:=375, Width:=475, Top:=topOfChart, Height:=325)
        .Chart.SetSourceData Source:=Sheets("Consolidation").Range("$A$" & 3 + ((17 + xtraWks) _
            * j) & ":$C$" & (4 + ttlWks) + ((17 + xtraWks) * k))
        .Chart.ChartType = xl3DColumnClustered
        .Chart.SetElement (msoElementDataLabelShow)
        .Chart.HasTitle = True
        .Chart.ChartTitle.Text = passedChartTitle & " Sales"
        .Chart.SetElement (msoElementLegendBottom)
        .Chart.SetElement (msoElementDataLabelNone)
        .Chart.RightAngleAxes = True
    End With

End Sub

Цвет RGB, который я хочу использовать для ВТОРОЙ серии столбчатой ​​диаграммы, равен (155, 187, 89), в соответствии с пожеланиями маркетологов . Я' m почти уверен, что существует .chart. ????. ???? = RGB (155, 187, 89) команду, которую я могу использовать в моем с , чтобы установить это, но я потратил слишком много времени, пытаясь понять это, только чтобы ничего не придумать.