I have made a stained glass pattern and need to mirror it to cut my template but I have numbered each box and when I mirrored the whole thing my numbers are back wards now. Is there any way to flip them back over? I can do it one by one but with over 50 pieces it will take a bit. Thanks
If numbers are text objects (paragraph or artistic) then you can use macro
Sub FLip() Dim OS As ShapeRange ActiveDocument.BeginCommandGroup ("FLIP") Set OS = ActivePage.Shapes.FindShapes(Type:=cdrTextShape) For Each sh In OS sh.FLip cdrFlipHorizontal Next sh ActiveDocument.EndCommandGroupEnd Sub
Ok, then select objects you want to flip and run macro
Sub FlipSelected() Dim OS As ShapeRange ActiveDocument.BeginCommandGroup ("FLIP") Set OS = ActiveSelectionRange For Each sh In OS sh.FLip cdrFlipHorizontal Next sh ActiveDocument.EndCommandGroupEnd Sub
Save attached macro to disk
Open Macro Manager (ALT+SHIFT+F11 or TOOLS – Macros – Macro Manager)
Click Load to load macro
FlipSelected.gms
Copy file with macro to
C:\Program Files\Corel\CorelDRAW Graphics Suite X7\Draw\GMS