I am using CorelDrawX4 to create and send files to a Laser Engraver.In Corel, I always click and drag my 0-0 to be at the upper left corner of my page.I select my artwork then go to the OBJECTS POSITION (in the toolbar, in the upper left part of the screen).I type in 0 (zero) for the x position and 0 (zero) for the y position and hit ENTER.The "center" of my artwork always goes to the 0-0 position.Is there a way to have the "upper left corner" of my artwork ALWAYS go to the 0-0 position?I tried to change this in the "transformations/positions" docker, but it does not stay as a default.I have attached two screen shots to hopefully aid in describing my question.
Thank you in advance for your help.
John H
Here...Try this...
Sub moveToTopLeft()Dim s As ShapeDim sr As ShapeRangeDim x#, y#, w#, h#Dim pageHeight#pageHeight = 11 'set page heightActiveDocument.ReferencePoint = cdrBottomLeftSet sr = ActiveLayer.Shapes.Allsr.GetBoundingBox x, y, w, hsr.SetPosition 0, (0 + pageHeight) - hEnd Sub
Have fun!
John