Can anyone help me find a solution to this task? A macro or native in Corel that can do this easily?I want to make a selection of objects, and move them to their own individual pages. Here's a video that hopefully explains it better.
Thanks!
Here's a quick-and-dirty to get things started:
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
That works great! I'm trying to fit the page to the content. I use your macro. Is there a way to run a macro within a macro? Or a shortcut? It's assigned to CTRL+SHIFT+F.