DIAdem Help

Object: LegendPosition

  • Updated2024-09-12
  • 1 minute(s) read

Object: LegendPosition

The LegendPosition object provides the position properties of a curve legend and a color legend in DIAdem REPORT.

The following example generates a 2D curve and positions the associated curve legend:

VBScriptPython

 

Dim oMy2DAxisSystem, oMyPosition, oMyCurve, oMyLegend, oMyAnchor
Call Report.NewLayout()
Set oMy2DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem, "My2DAxisSystem")
Set oMyPosition = oMy2DAxisSystem.Position.ByCoordinate
oMyPosition.X1 = 20
oMyPosition.X2 = 80
oMyPosition.Y1 = 20
oMyPosition.Y2 = 80
Set oMyCurve = oMy2DAxisSystem.Curves2D.Add(e2DShapeLine, "MyNew2DCurve1")
oMyCurve.Shape.XChannel.Reference = "[1]/[1]"
oMyCurve.Shape.YChannel.Reference = "[1]/[2]"
Set oMyLegend = oMy2DAxisSystem.CurveLegend
oMyLegend.Visible = True
Set oMyAnchor = oMyLegend.Position.Anchor
oMyAnchor.PageRelatedX = 10
oMyAnchor.PageRelatedY = 10
Call Report.Refresh()