Hi,
We have certain registration marks that we use on our designs before we print to vellum.
Would someone here be able to write a macro that could do the following? I've attached an example image of where we place the registration marks and am also attaching the actual registration mark CDR file. I'm assuming this would probably be rather simple...
We'd like this registration mark to be centered to the image and placed on the top and bottom of the image at .25 inches away from the image itself. So, I would think the macro would have to select the entire image on the page, then decide where .25 inches is away from the top and bottom of the image and place the registration mark, centered in that area.
Does that make sense? LOL Hopefully my sample image will show where we would like them.
Thanks anyone who can help!!! =)
Jason
Put this in a new macro file (gms) It will give the option to setting two icons one for each process.
*****************************************************************************
Sub cropMarks_Vertical() Dim sr As ShapeRange, sCirc As Shape, sline1 As Shape, sLine2 As Shape, sr2 As New ShapeRange, s As Shape Dim x#, y#, w#, h# Dim dCropRadius# dCropRadius = 0.125 Set sr = ActiveSelectionRange If sr.Count = 0 Then Exit Sub ActiveDocument.BeginCommandGroup "CropMarkCustom" sr.GetBoundingBox x, y, w, h Set sCirc = ActiveLayer.CreateEllipse2(0, 0, dCropRadius): sr2.Add sCirc Set sline1 = ActiveLayer.CreateLineSegment(0, 0, dCropRadius * 4, 0) Set sLine2 = ActiveLayer.CreateLineSegment(0, 0, 0, dCropRadius * 4) sline1.AlignToShape cdrAlignHCenter, sCirc: sline1.AlignToShape cdrAlignVCenter, sCirc: sr2.Add sline1 sLine2.AlignToShape cdrAlignHCenter, sCirc: sLine2.AlignToShape cdrAlignVCenter, sCirc: sr2.Add sLine2 Set s = sr2.Group Set sr2 = New ShapeRange: sr2.Add s s.AlignToShapeRange cdrAlignHCenter, sr ActiveDocument.ReferencePoint = cdrCenter s.SetPositionEx cdrCenter, s.PositionX, y - 0.625 '(.5 + .125 ) Set s = s.Duplicate(0, h + 1.25) sr2.Add s Set s = sr2.Group With s .Outline.Width = 0.015 'set width here in inches .Outline.Color.RegistrationAssign .CreateSelection .Name = "VERTICAL Crop Marks" End With ActiveDocument.EndCommandGroupEnd Sub Sub cropMarks_Horizonal() Dim sr As ShapeRange, sCirc As Shape, sline1 As Shape, sLine2 As Shape, sr2 As New ShapeRange, s As Shape Dim x#, y#, w#, h# Dim dCropRadius# dCropRadius = 0.125 Set sr = ActiveSelectionRange If sr.Count = 0 Then Exit Sub ActiveDocument.BeginCommandGroup "CropMarkCustom" sr.GetBoundingBox x, y, w, h Set sCirc = ActiveLayer.CreateEllipse2(0, 0, dCropRadius): sr2.Add sCirc Set sline1 = ActiveLayer.CreateLineSegment(0, 0, dCropRadius * 4, 0) Set sLine2 = ActiveLayer.CreateLineSegment(0, 0, 0, dCropRadius * 4) sline1.AlignToShape cdrAlignHCenter, sCirc: sline1.AlignToShape cdrAlignVCenter, sCirc: sr2.Add sline1 sLine2.AlignToShape cdrAlignHCenter, sCirc: sLine2.AlignToShape cdrAlignVCenter, sCirc: sr2.Add sLine2 Set s = sr2.Group Set sr2 = New ShapeRange: sr2.Add s s.AlignToShapeRange cdrAlignVCenter, sr ActiveDocument.ReferencePoint = cdrCenter s.SetPositionEx cdrCenter, x - 0.625, s.PositionY Set s = s.Duplicate(w + 1.25, 0) sr2.Add s Set s = sr2.Group With s .Outline.Width = 0.015 'set width here in inches .Outline.Color.RegistrationAssign .CreateSelection .Name = "HORIZONAL Crop Marks" End With ActiveDocument.EndCommandGroupEnd Sub
********************************************************************************
Steve E.
Perfect!!! Thanks so much guys!! =)
It's amazing how much can be done in these macros....it just really shows the versatility and power of CorelDraw.
Simple little things like this...placing registration marks....it might take a minute or two to do it by hand in the way that we need it done....but with a macro it's literally only a second to get done! Over the course of a full 8 hour day it really adds up.
I can't thank you guys enough for your help with these macros I've been asking for the last few months!
I have more that I could use, that would help me out, but I feel like I am being a pest by asking for too much! LOL
This is exactly what i need, but is there a way to edit it so that the registration marks look like this.
Ola sou novo no grupo, sou do Brasileiro gostaria de saber se alguem poderia me ajudar em uma macro que colaca nome no arquivo de forma que se escreve e o nome aparece na pagina desde ja agradeço