M
mhandersen
Hi everyone,
I am having trouble with some vba code to add error bars to a new
series I am creating. When I run the following code I get a 'ErrorBar
method of Series class failed' error on the first .errorbar line. Can
anyone help me out?
With ActiveChart.SeriesCollection.NewSeries
.name = GraphForm.tbxSeriesName.Value
.Values = Worksheets("Data").Range("B1:B25")
.XValues = Worksheets("Data").Range("A1:A25")
.ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth,
Type:=xlCustom, _
Amount:=Worksheets("Data").Range("C1:C25")
.ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth,
Type:=xlCustom, _
Amount:=Worksheets("Data").Range("D125")
End With
There is probably a better way to do this (add error bars to a new
series) but I am not familiar enough with Excel programming to know
what it is. Thanks for any help in advance.
I am having trouble with some vba code to add error bars to a new
series I am creating. When I run the following code I get a 'ErrorBar
method of Series class failed' error on the first .errorbar line. Can
anyone help me out?
With ActiveChart.SeriesCollection.NewSeries
.name = GraphForm.tbxSeriesName.Value
.Values = Worksheets("Data").Range("B1:B25")
.XValues = Worksheets("Data").Range("A1:A25")
.ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth,
Type:=xlCustom, _
Amount:=Worksheets("Data").Range("C1:C25")
.ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth,
Type:=xlCustom, _
Amount:=Worksheets("Data").Range("D125")
End With
There is probably a better way to do this (add error bars to a new
series) but I am not familiar enough with Excel programming to know
what it is. Thanks for any help in advance.