更改条形图中的条形颜色 - VBA Excel 2007

Question

我已经为Excel 2007程序创建了一个VBA,它可以根据活动工作簿中最多52个不同的选项卡自动为ROI创建条形图.我已接近完成,我唯一想知道的是如何改变条形图的颜色.

图形是在它们自己的子函数中创建的,通过这样的调用来调用.每当变量被调用时,每个变量都会发生变化.

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

根据市场营销的愿望,我想在条形图中的SECOND系列上使用的RGB颜色是(155,187,89).我很确定有.chart.???? ????? = RGB(155,187,89)命令我可以在我的With中使用来设置它,但是我花了太多时间试图找出它,只是想出什么.

谢谢你的帮助!

Answer 1

@ScottyStyles:

你有没有尝试过

.Chart.SeriesCollection([index]).Interior.Color = RGB(155, 187, 89)

(其中[index]是要更改颜色的系列的占位符)？