값의 독립성을 가진 세로 막 대형 차트의 두 색 대체

Question

저는 열/가로 막 대형 차트가 있는데이 방법으로 빨간색과 회색으로 채색하고 싶습니다 : 첫 번째 열 빨간색, 두 번째 회색, 세 번째 빨간색, 네 번째 회색 등 더 이상 가치가 없을 때까지. 매크로 레코더는 모든 포인트를 지정하기 때문에 고민하고 있습니다. 그러나 아이디어는 데이터가 업데이트되어 상황에 따라 포인트/값의 수를 적게 또는 많이 변경합니다.

Answer 1

차트의 시리즈/포인트 수를 반복하는 코드를 작성해야합니다. 아래의 코드는 차트의 각 시리즈 및/또는 포인트를 반복하며 동일한 채움 색상으로 모든 두 번째 막대의 서식을 지정합니다.

Sub ColorBarsInChart() 
    Dim i As Integer 
    Dim j As Integer 

    'Exit if no chart is selected 
    If Not (TypeName(Selection) = "ChartArea" Or TypeName(Selection) = "PlotArea") Then Exit Sub 

    'If only one series in chart 
    If ActiveChart.SeriesCollection.Count = 1 Then 
     For j = 1 To ActiveChart.SeriesCollection(1).Points.Count 
      If j Mod 2 Then 
       ActiveChart.SeriesCollection(1).Points(j).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) 
      Else 
       ActiveChart.SeriesCollection(1).Points(j).Format.Fill.ForeColor.RGB = RGB(127, 127, 127) 
      End If 
     Next j 

    'If more than one series in chart 
    Else 
     For i = 1 To ActiveChart.SeriesCollection.Count 
      For j = 1 To ActiveChart.SeriesCollection(i).Points.Count 
       If i Mod 2 Then 
        ActiveChart.SeriesCollection(i).Points(j).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) 
       Else 
        ActiveChart.SeriesCollection(i).Points(j).Format.Fill.ForeColor.RGB = RGB(127, 127, 127) 
       End If 
      Next j 
     Next i 
    End If 
End Sub 

특정 차트가 여러 데이터 시리즈로 구성되어 있는지 여부는 알 수 없으므로이 두 가지 경우 모두 사용할 수있는 코드 만 만들었습니다.