Property: XErrorBar for 2DAdditionalErrorBars

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Returns an error bar in x direction in a 2D axis system in DIAdem REPORT.

Set oErrorBar = Object.XErrorBar
Object2DAdditionalErrorBars
Object with this property
oErrorBarErrorBar
Returned object

The following example generates a 2D axis system with error bars:

Dim oMyReportObj, oMyCurve, oMyPos, oMyShape, oMyErrorBars
Call Report.NewLayout()
Call Data.Root.Clear()
Call DataFileLoad(ProgramDrv & "examples\Data\Error_Bars.tdm","TDM","")
Set oMyReportObj = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem, "My2DAxisSystem")
Set oMyPos = oMyReportObj.Position.ByCoordinate
oMyPos.X1 = 20
oMyPos.X2 = 80
oMyPos.Y1 = 20
oMyPos.Y2 = 80
Set oMyCurve = oMyReportObj.Curves2D.Add(e2DShapeLine, "MyCurve")
Set oMyShape = oMyCurve.Shape
oMyShape.XChannel.Reference = "[1]/[1]" 
oMyShape.YChannel.Reference = "[1]/[2]" 
Set oMyErrorBars = oMyShape.Extensions.ErrorBars
oMyErrorBars.XErrorBar.Type = eErrorbarPositiveAndNegative
oMyErrorBars.XErrorBar.ErrorType= eErrorbarErrorTypePercentage
oMyErrorBars.XErrorBar.PercentageErrorValue = 15
oMyErrorBars.Line.UseCurveColor = False
Call oMyErrorBars.Line.Color.SetPredefinedColor(eColorIndexGreen)
oMyErrorBars.Line.LineType = eLineTypeSolid
Call Report.Refresh()

WAS THIS ARTICLE HELPFUL?

Not Helpful