![]() | DIAdem 2012 Help |
![]() | DIAdem 2014 Help |
![]() | DIAdem 2015 Help |
![]() | DIAdem 2017 Help |
![]() | DIAdem 2018 Help |
![]() | DIAdem 2019 Help |
The LegendFrame object provides the frame properties of a curve legend and a color legend in DIAdem REPORT.
The following example generates a 2D curve and displays the associated curve legend with a frame:
Dim oMy2DAxisSystem, oMyPos, oMyCurve, oMyShape, oMyLegend, oMyLegendFrame Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Call Report.NewLayout( Set oMy2DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem,"My2DAxisSystem") Set oMyPos = oMy2DAxisSystem.Position.ByCoordinate oMyPos.X1 = 20 oMyPos.X2 = 80 oMyPos.Y1 = 20 oMyPos.Y2 = 80 Set oMyCurve = oMy2DAxisSystem.Curves2D.Add(e2DShapeLine,"My2DCurve") Set oMyShape = oMyCurve.Shape oMyShape.XChannel.Reference = "[1]/[1]" oMyShape.YChannel.Reference = "[1]/[2]" Set oMyLegend = oMy2DAxisSystem.CurveLegend oMyLegend.Visible = True Set oMyLegendFrame = oMyLegend.Frame oMyLegendFrame.Visible = True Call oMyLegendFrame.Color.SetPredefinedColor(eColorIndexBlue) oMyLegendFrame.Width = eLineWidth0100 Call Report.Refresh()
Helpful
Not Helpful