如何在VBA excel中定义错误栏的数量

我想graphics与错误栏在VBBA中，我的代码工作得很好。 只是不把错误栏与数据的范围内，我已经定义它把错误栏固定值，我不明白为什么。 有谁能够帮助我？ 这是我的代码：

Sub meanSD() Dim sumsht As Worksheet Set sumsht = Worksheets("Summary") Dim chtobj As ChartObject Set chtobj = sumsht.ChartObjects.Add(70, 700, 600, 300) Dim rngAmount As Range Set rngAmount = sumsht.Range(Cells(2, 51), Cells(41, 51)) With chtobj.Chart .ChartType = xlColumnClustered .SetSourceData Source:=Range("Summary!$B$50:$AO$50") .FullSeriesCollection(1).Name = "=Summary!$A$1" .FullSeriesCollection(1).XValues = "=Summary!$B$3:$AO$4" .FullSeriesCollection(1).HasErrorBars = True .FullSeriesCollection(1).ErrorBars.Select .FullSeriesCollection(1).ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:=rngAmount, MinusValues:=rngAmount End With End Sub 

Answer 1

我不认为这是一个VBA问题，除非有一个需求缺失。

在Excel 2007中：

• select图表
• select布局
• select错误栏
• select更多错误栏选项
• 指定错误栏的格式
• select“自定义”，然后input正值和负值的范围。

此外，SE的一个趋势是build议您避免在VBA中使用“select”。 所以，声明： .FullseriesCollection(1).ErrorBars.Select是无关紧要的。