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 

Parents
  • 0 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

Reply Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.