Question

我正在尝试用vba excel中的错误栏进行图形处理，我的代码工作正常。只是将错误条与数据放在我定义的范围内，而不是将错误条置于固定值，我无法弄清楚原因。有谁能够帮我？这是我的代码：

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中：

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

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

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

1 个答案: