Object: ObjectPositionDefinedByCoordinates

Object: ObjectPositionDefinedByCoordinates

The ObjectPositionDefinedByCoordinates object provides the coordinates 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 formula graphic to position the coordinates of the corner points. Then the example generates a frame and positions the frame over the coordinates of 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.ByCoordinate
oMyFormula.Text = "a^2+b^2=c^2"
oMyPosFormula.X1 = 10
oMyPosFormula.X2 = 30
oMyPosFormula.Y1 = 10
oMyPosFormula.Y2 = 25
Set oMyFrame = Report.ActiveSheet.Objects.Add(eReportObjectFrame,"MyFrame")
Set oMyPosFrame = oMyFrame.Position.ByCoordinate
oMyPosFrame.X1 = 40
oMyPosFrame.Width = 20
oMyPosFrame.Y1 = 10
oMyPosFrame.Height = 15
Call Report.Refresh()

dd.Report.NewLayout() 
oMyFormula = dd.Report.ActiveSheet.Objects.Add(dd.eReportObjectFormulaDisplay ,"MyFormular") 
oMyPosFormula = oMyFormula.Position.ByCoordinate 
oMyFormula.Text = "a^2+b^2=c^2" 
oMyPosFormula.X1 = 10 
oMyPosFormula.X2 = 30 
oMyPosFormula.Y1 = 10 
oMyPosFormula.Y2 = 25 
oMyFrame = dd.Report.ActiveSheet.Objects.Add(dd.eReportObjectFrame,"MyFrame") 
oMyPosFrame = oMyFrame.Position.ByCoordinate 
oMyPosFrame.X1 = 40 
oMyPosFrame.Width = 20 
oMyPosFrame.Y1 = 10 
oMyPosFrame.Height = 15 
dd.Report.Refresh()