Macro to reset file Origin Coordinates

JM1977 25 days ago

Hello,

I CorelDraw X6, how do I reset the origin coordinates to 0,0 (left bottom corner), I read that you can use "Page.SetOrigin" command but this is not available for the Corel 16.

Thank you in Advance

Jose

0 Shelby Moore 25 days ago

For CorelDRAW X6 you would use Document.DrawingOriginX and Document.DrawingOriginY.

Sub Test()
    Dim doc As Document
    
    Set doc = ActiveDocument
    
    doc.DrawingOriginX = 0
    doc.DrawingOriginY = 0
    ActiveLayer.CreateRectangle 0, 0, 1, 1
    doc.DrawingOriginX = -doc.ActivePage.SizeWidth / 2
    doc.DrawingOriginY = -doc.ActivePage.SizeHeight / 2
    ActiveLayer.CreateEllipse 0, 0, 1, 1
End Sub

Here is an example,

Happy coding,

-Shelby

0 JM1977 25 days ago in reply to Shelby Moore

It worked! Thank you so much.

Learned something new today!

Jose
Cancel
Up 0 Down

Reply

Verify Answer

Cancel