CorelDRAW and Corel DESIGNER API VBA Shape.AlignToPage Broken?

Developer Area requires membership for participation - click to join

VBA Shape.AlignToPage Broken?

Sean Donnahoe over 7 years ago

Can anyone confirm that Shape.AlignToPage or .AlignToPageCenter are broken in X7?

NudeFan over 7 years ago

Due to the fact, that X7 had also other problems I not really used this version, I stayed with X6 until X8 came out. It also has some bugs, but I can work with it.
You tried it with X8 as well?
Cancel
Up 0 Down

Reply

Cancel
Myron over 7 years ago in reply to NudeFan

Yes, I couldn't get AlignToPageCenter to work either but fwiw. This one aligns a shape to page center and allows the selection of multiple shapes and aligns them to page center

Sub AlignToPage()
Dim sr As ShapeRange
Dim pw#, ph#
ActiveDocument.ActivePage.GetSize pw, ph
ActiveDocument.ReferencePoint = cdrCenter
Set sr = ActiveSelectionRange
If sr.Count = 0 Then Exit Sub
sr.SetPosition pw / 2, ph / 2
End Sub
Cancel
Up 0 Down

Reply

Cancel
Myron over 7 years ago in reply to Myron

ActiveSelectionRange.AlignAndDistribute cdrAlignDistributeHAlignCenter, cdrAlignDistributeVAlignCenter, cdrAlignShapesToCenterOfPage
Cancel
Up 0 Down

Reply

Cancel