2

我在使用 VBA 更改 Excel 2003 中数据系列的颜色时遇到了特别麻烦。

我设法改变了线条的颜色，但颜色不正确。我很困惑，我希望有人能阐明我做错了什么！

Dim strFundCode As String
strFundCode = Std_FleetUtils.GetVariableValueByName(avVariables, strVARIABLE_NAME_FUND)

Dim oChart As Chart
Set oChart = ActiveChart

Dim oSeries As Series
Set oSeries = oChart.SeriesCollection(1)

Select Case strFundCode

    Case strFUND_CODE_CAUTIOUS ' MPS Cautious

        oSeries.Border.Color = RGB(12, 86, 166)

    Case strFUND_CODE_BALANCED ' MPS Balanced

        oSeries.Border.Color = RGB(93, 19, 110)

    Case strFUND_CODE_BALANCED_INCOME ' MPS Balanced Income

        oSeries.Border.Color = RGB(70, 137, 176)

    Case strFUND_CODE_GROWTH ' MPS Growth

        oSeries.Border.Color = RGB(200, 139, 78)

    Case Else
        Err.Raise lGENERIC_ERROR, Description:="The fund code '" & strFundCode & "' is not recognized."

End Select

我已经尝试了很多东西（Interior.Color - 抛出了一个错误）。

提前非常感谢！

4

1 回答 1

1

您可以使用：

oSeries.Format.Fill.BackColor = RGB(x,x,x)
于 2012-12-14T13:52:42.773 回答