Ctrl A then P to center the page
Ctrl A then Ctrl R to repeat my last step
thats all what i need on all pages of a document in a single click
sorry sorry sorry Ctrl A + P to center the object Ctrl A +Ctrl R to repeat in 1 click on all pages in 1 clip
paraggoyal said:hey myron i need a ctrl + R command on all pages in 1 click toopages with different size i want all same size for that i need this macro..
CorelDraw allows one to easily change the size of all pages in a document. Make sure that "All pages" is selected before changing page size and/or orientation.
Sorry; I misunderstood.
This will find the height and width of the collection of all shapes on Page 1, then apply those dimensions to the collection of shapes on each page.
Sub Match_Allshapes_Size_Page1_CenterAllshapesOnEachPage()Dim p As Page, i&Dim target_size_height As DoubleDim target_size_width As Double ActiveDocument.BeginCommandGroup "MAS_P1_CASEP" 'get target height and width from shapes on Page 1 target_size_height = ActiveDocument.Pages(1).Shapes.All.SizeHeight target_size_width = ActiveDocument.Pages(1).Shapes.All.SizeWidth For i = 1 To ActiveDocument.Pages.Count ActiveDocument.Pages(i).Shapes.All.SizeHeight = target_size_height ActiveDocument.Pages(i).Shapes.All.SizeWidth = target_size_width ActiveDocument.Pages(i).Shapes.All.AlignRangeToPageCenter cdrAlignVCenter Next i Application.Refresh ActiveDocument.EndCommandGroupEnd Sub