Examples:
The following VBA example moves the center of coordinates to the center of the page and creates a rectangle at this new center of coordinates. The center of coordinates is then moved back to the lower-left corner of the page, and an ellipse is created at this modified center of coordinates.
Sub Test()
Dim d As Document
Set d = ActiveDocument
d.DrawingOriginX = 0
d.DrawingOriginY = 0
ActiveLayer.CreateRectangle 0, 0, 1, 1
d.DrawingOriginX = -d.ActivePage.SizeWidth / 2
d.DrawingOriginY = -d.ActivePage.SizeHeight / 2
ActiveLayer.CreateEllipse 0, 0, 1, 1
End Sub