2016-07-31 3 views
1

이 차트는 선의 색이 변경되지 않는다는 점을 제외하고는 작동합니다.Excel 차트 VBA 스 캐터 플롯에서 선 색 변경

  Sheets("Analysis").ChartObjects("Chart 1").Activate 
      With Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(1) 
       .XValues = Sheets("Data").Range("A2:A33") 
       .Values = Sheets("Data").Range("B2:B33") 
       .Name = "Plot1" 
       .Interior.Color = RGB(100, 0, 100) 
      End With     

답변

1

이 나는 ​​이상한 소리로 들리 겠지만하지만이

함께 .Interior 교체 :) 시도 .Border

Sheets("Analysis").ChartObjects("Chart 1").Activate 
With Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(1) 
    .XValues = Sheets("Data").Range("A2:A33") 
    .Values = Sheets("Data").Range("B2:B33") 
    .Name = "Plot1" 
    .Border.Color = RGB(100, 0, 100) 
End With