Excel Automation VBA中的自定义误差条

Question

我找不到错误。我知道已经有类似的问题了。不幸的是，我似乎没有正确理解错误条的语法。

''

Dim mychart As Chart
Set mychart = oWSD.ChartObjects("Chart 1").Chart
mychart.SeriesCollection(1).ErrorBars Direction:=xlY, Include:=xlMinusValues, 
Type:=xlCustom, Amount:="=Data and Graph!$B$12:$F$12", MinusValues:="=Data and 
Graph!$B$12:$F$12"

"我不知怎么得到了错误：运行时错误"448"，找不到命名参数。

有人知道怎么了吗？谢谢大家<3

Answer 1

确保使用

mychart.SeriesCollection(1).HasErrorBars = True 

在尝试设置任何错误栏属性之前。

在你发布的代码中使用ErrorBar而不是ErrorBars：

https://learn.microsoft.com/en-us/office/vba/api/excel.series.errorbar

ErrorBars不接受任何参数。

Dim mychart As Chart
Set mychart = oWSD.ChartObjects("Chart 1").Chart
mychart.SeriesCollection(1).ErrorBar Direction:=xlY, _
Include:=xlMinusValues, _
Type:=xlCustom, _
Amount:="=Data and Graph!$B$12:$F$12", _
MinusValues:="=Data and Graph!$B$12:$F$12"