Hy, i have a question , u type this code? Sub shapes_to_pages() Dim s As Shape Dim pThis As Page For Each s In ActiveSelectionRange Set pThis = ActiveDocument.AddPages(1) s.MoveToLayer pThis.Layers("Layer 1") s.CenterX = pThis.CenterX s.CenterY = pThis.CenterY Next s End Sub And if u did, can i replace centerx and centery with coordinates?
I wrote that code in a thread on the CorelDRAW Community forum: community.coreldraw.com/talk/coreldraw-graphics-suite-2020/f/coreldraw-graphics-suite-2020-for-windows/64432/objects-to-different-pages. I was getting the coordinates from the center of the page (Page.CenterX, Page.CenterY) to center the objects, but you could give it different coordinates if you wanted to.
@@Miko-of4wm This is difficult to discuss in the UA-cam comments section, because we can't post formatted code, screenshots, etc. If you contact me (username Eskimo) at the CorelDRAW Community forum, I can try to answer your questions there.
Hy, i have a question , u type this code?
Sub shapes_to_pages() Dim s As Shape Dim pThis As Page For Each s In ActiveSelectionRange Set pThis = ActiveDocument.AddPages(1) s.MoveToLayer pThis.Layers("Layer 1") s.CenterX = pThis.CenterX s.CenterY = pThis.CenterY Next s End Sub
And if u did, can i replace centerx and centery with coordinates?
I wrote that code in a thread on the CorelDRAW Community forum: community.coreldraw.com/talk/coreldraw-graphics-suite-2020/f/coreldraw-graphics-suite-2020-for-windows/64432/objects-to-different-pages.
I was getting the coordinates from the center of the page (Page.CenterX, Page.CenterY) to center the objects, but you could give it different coordinates if you wanted to.
@@EskimoCorel like s.Rightx and s.BottomY or i can just type 12.335x and 2.218y? If i can type the coordinates can u tell me how?
@@Miko-of4wm This is difficult to discuss in the UA-cam comments section, because we can't post formatted code, screenshots, etc. If you contact me (username Eskimo) at the CorelDRAW Community forum, I can try to answer your questions there.
@@EskimoCorel thx u so much