API Documentation > CorelDRAW > 2025-v26 > Document > IVGDocument
Document.ReferencePoint property
Returns or specifies the reference point for positioning every object in the document
Syntax:
Property Get ReferencePoint() As cdrReferencePoint
Property Let ReferencePoint(ByVal Value As cdrReferencePoint)
Remarks:
The ReferencePoint property specifies the reference point whose coordinates are set or retrieved. It controls how the Shape.PositionX and Shape.PositionY properties function. The reference point defines a central point in the document for the positioning of objects in the document.
Examples:
The following VBA example creates ellipses at four corners of the bounding box of the first selected object and in the center of the object.
Private Sub DrawEllipse(s As Shape)
ActiveDocument.ActiveLayer.CreateEllipse2 s.PositionX, s.PositionY, 0.1 
End Sub Sub Test()
Dim s As Shape
Set s = ActiveShape
ActiveDocument.ReferencePoint = cdrTopLeft
DrawEllipse s
ActiveDocument.ReferencePoint = cdrTopRight
DrawEllipse s
ActiveDocument.ReferencePoint = cdrBottomLeft
DrawEllipse s
ActiveDocument.ReferencePoint = cdrBottomRight
DrawEllipse s
ActiveDocument.ReferencePoint = cdrCenter
DrawEllipse s 
End Sub