条形图在改变酒吧颜色(Changing color of Bars in a bar chart)

我在Excel中的代码改变条形图，但它不工作的颜色。 任何人都可以建议我什么我做错了在代码中。

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

此代码犯规影响了酒吧的颜色。

此外，对于所有的酒吧（代表值0到200），我想一种颜色（绿色），但表示两个数据点（100和200），两间酒吧，我要添加不同的颜色。 谁能告诉我如何到与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

文章来源: Changing color of Bars in a bar chart