Excel 2007中的错误栏格式

Question

在Excel 2007中使用宏，我想显示以下错误栏：

• 无水平误差条。
• 红色虚线带有100垂直值的误差线。

我可以得到我想要的所有东西，除了颜色，我不明白为什么。下面是代码。

ActiveChart.SeriesCollection(6).HasErrorBars = True
With ActiveChart.SeriesCollection(6).ErrorBars
    .EndStyle = xlNoCap
    .Format.Line.Visible = msoTrue
    .Format.Line.ForeColor.RGB = RGB(255, 0, 0)
    .Format.Line.ForeColor.TintAndShade = 0
    .Format.Line.Weight = 2
    .Format.Line.DashStyle = msoLineDash
End With
ActiveChart.SeriesCollection(6).ErrorBar Direction:=xlX, Include:=xlNone, Type:=xlFixedValue, Amount:=0
ActiveChart.SeriesCollection(6).ErrorBar Direction:=xlY, Include:=xlPlusValues, Type:=xlFixedValue, Amount:=100

Answer 1

我也遇到了同样的问题。但是在切换误差线的可见状态后，颜色变化对我有用。试试看：

ActiveChart.SeriesCollection(6).HasErrorBars = True
With ActiveChart.SeriesCollection(6).ErrorBars
    .EndStyle = xlNoCap
    .Format.Line.Visible = msoTrue
    .Format.Line.ForeColor.RGB = RGB(255, 0, 0)
    .Format.Line.Visible = False                 'ADDED          
    .Format.Line.Visible = True                  'ADDED
    .Format.Line.ForeColor.RGB = RGB(255, 0, 0)  'ADDED
    .Format.Line.ForeColor.TintAndShade = 0
    .Format.Line.Weight = 2
    .Format.Line.DashStyle = msoLineDash
End With