Excel 更改条形图中条形图的颜色

我在excel中有一个更改条形图颜色的代码，但它不起作用。有人能告诉我我在代码中做错了什么吗

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

此代码不影响条的颜色

另外，对于所有条形图（表示值0到200），我想要一种颜色（绿色），但是对于表示两个数据点（100和200）的两个条形图，我想要添加不同的颜色。谁能告诉我如何使用VBA来实现这一点。 如果您能抽出时间来做同样的事情，我将不胜感激

---

非常感谢

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

---

嗨，道格，谢谢你的回复。第一部分做得很好，但第二部分给了我一个错误。运行时错误“451”：未定义属性let过程，并且属性get过程未返回对象