Object: ObjectPositionDefinedByBorders

Object: ObjectPositionDefinedByBorders

The ObjectPositionDefinedByBorders object provides the distances for the position of the object in DIAdem REPORT. Because you can use either the Bottom, Height, Left, Right, Top, and Width for the ObjectPositionDefinedByBorders property, or the Height, Width, X1, X2, Y1, and Y2 for the ObjectPositionDefinedByCoordinates property to specify the position, these properties impact each other and the value of the property set first can be modified by another property.

The following example generates a formula graphic and uses the edge distances to position the formula graphic. Then the example generates a frame and positions the frame over the distances to the left bottom corner and the height and width:

Dim oMyFormula, oMyPosFormula, oMyFrame, oMyPosFrame
Call Report.NewLayout()
Set oMyFormula = Report.ActiveSheet.Objects.Add(eReportObjectFormulaDisplay ,"MyFormular")
Set oMyPosFormula = oMyFormula.Position.ByBorder
oMyFormula.Text = "a^2+b^2=c^2"
oMyPosFormula.Left = 10
oMyPosFormula.Right = 70
oMyPosFormula.Bottom = 10
oMyPosFormula.Top = 75
Set oMyFrame = Report.ActiveSheet.Objects.Add(eReportObjectFrame,"MyFrame")
Set oMyPosFrame = oMyFrame.Position.ByBorder
oMyPosFrame.Left = 40
oMyPosFrame.Width = 20
oMyPosFrame.Bottom = 10
oMyPosFrame.Height = 15
Call Report.Refresh()

dd.Report.NewLayout() 
oMyFormula = dd.Report.ActiveSheet.Objects.Add(dd.eReportObjectFormulaDisplay ,"MyFormular") 
oMyPosFormula = oMyFormula.Position.ByBorder 
oMyFormula.Text = "a^2+b^2=c^2" 
oMyPosFormula.Left = 10 
oMyPosFormula.Right = 70 
oMyPosFormula.Bottom = 10 
oMyPosFormula.Top = 75 
oMyFrame = dd.Report.ActiveSheet.Objects.Add(dd.eReportObjectFrame,"MyFrame") 
oMyPosFrame = oMyFrame.Position.ByBorder 
oMyPosFrame.Left = 40 
oMyPosFrame.Width = 20 
oMyPosFrame.Bottom = 10 
oMyPosFrame.Height = 15 
dd.Report.Refresh()