2012-12-14 7 views
2

VBA를 사용하여 Excel 2003에서 데이터 계열의 색을 변경하는 데 특히 문제가 있습니다.Excel 2003 VBA에서 데이터 계열의 색 변경

줄의 색을 바꿀 수 있지만 색상이 올바르지 않습니다. 나는 매우 혼란스럽고 나는 누군가가 내가 잘못하고있는 것에 대해 밝힐 수 있기를 바라고있다.

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 - 오류가 발생했습니다).

미리 감사드립니다.

답변

1

당신은 사용할 수 있습니다 :

oSeries.Format.Fill.BackColor = RGB(x,x,x)