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 に答える