막 대형 차트의 막대 색상 변경

Question

막대 그래프의 색을 바꿀 수 있지만 작동하지 않는 코드가 있습니다. 누구든지 내가 코드에서 잘못하고있는 것을 나에게 제안 할 수 있습니까?

With ActiveChart.SeriesCollection(1).Interior.Color = RGB(0, 153, 64) 
End With 

이 코드는 막대의 색상에 영향을주지 않습니다.

또한 모든 막대 (0에서 200까지의 값을 나타냄)에 대해 하나의 색상 (녹색)을 원하지만 두 개의 막대 (100 및 200)를 나타내는 막대 2 개에 대해 다른 색상을 추가하고 싶습니다. 아무도 VBA와 함께하는 방법을 말해 줄 수 있습니까. 같은 시간에 대해 감사드립니다.

고마워요.

Answer 1

With 문은 실행될 개체 또는 속성을 지정합니다. 귀하의 코드는 다음과 같아야합니다

With ActiveChart.SeriesCollection(1) 
    .Interior.Color = RGB(0, 153, 64) 
End With 

편집 - 귀하의 질문의 두 번째의 경우 :

Sub ColorBars() 
Dim chtSeries As Excel.Series 
Dim i As Long 

For Each chtSeries In ActiveChart.SeriesCollection 
    With chtSeries 
     For i = 1 To .Points.Count 
      If .Values(i) = 100 Or .Values(i) = 200 Then 
       .Points(i).Interior.Color = .Interior.Color = RGB(75, 172, 198) 
      Else 
       .Points(i).Interior.Color = RGB(0, 153, 64) 
      End If 
     Next i 
    End With 
Next chtSeries 
End Sub