I am printer. My client always send me non marginable designs which i need to print. But designs dont have margin for cutting therefore i have to create margin by first creating guidlelines for example 5mm inside on all side of page then i have to strech the design inside the guideline so that printing wont cut when i was using cutting machine.
Thats why I want a macro to create a specific MM guideline inside the page on all 4 corner and on the same time to shift all my selected design to strech inside till my guideline.
"stretching/squishing" would distort the print. If only a little no harm but otherwise would look bad.
A macro wouldn't necessarily need to use guidelines. Why wouldn't you just type in the width and height required? Or run a macro to size the print accordingly?
see the attached JPG. this is what i am looking for. i want to shrink my selection to the guidelines from outside toinside side. please help.
Yes, that's what I am suggesting. Guidelines have nothing to do with it, they're just a visual. What are the physical dimensions h & w that would get you inside that area. Once you know that you can set up a macro to size it accordingly. But like I said could get complicated if paragraph text is used instead of artistic text. If it's all converted text you should be golden.
You can hold ALT key when shirking page content with the paragraph text
i am printer i got only curved files only. to create the cutting margin i have to shrink the design manually. if there is any change we can shrink our design till the ruler please let me know mek.
Sub stretch() Dim sr As ShapeRange, x#, y#, w#, h#, fx#, fy# ActiveDocument.Unit = cdrMillimeter ActiveDocument.ReferencePoint = cdrCenter Set sr = ActiveSelectionRange sr.GetBoundingBox x, y, w, h fx = 1 - 4 / w fy = 1 - 4 / h sr.stretch fx, fy, True End Sub
this is nice and solved my purpose thank you sir. i have 1 more questionwhat if we need to stretch only Left or Right or Top or Bottom 1 side ONLY?