For me this is the best macro to separate the colors, it's a shame that has ceased to operate in these later versions of Corel. A tool that should come along since the very corel.
If_coloreplacer 2.9.37
C_DAVID said: Here is an example of the macro I need, is it possible? I know nothing about programming, I do not think it is hard for those who know, based on Dizzy, I think it is easy to understand me. This is the idea
Here is an example of the macro I need, is it possible? I know nothing about programming, I do not think it is hard for those who know, based on Dizzy, I think it is easy to understand me.
This is the idea
Hi.
I know you've been really wanting this for a while so I wrote this for you. It should be easy enough to add a form.
Sub cropMarks() Dim sr As ShapeRange, s As Shape, sr2 As New ShapeRange Dim x#, y#, w#, h#, d#, l#, lw#, ll# Dim s1 As Shape Set sr = ActiveSelectionRange ActiveDocument.Unit = cdrInch ActiveDocument.BeginCommandGroup "Center crop marks" Set s = sr.Group d = 0.25 'distance from object for crop marks l = 0.25 ' line length for crop marks lw = 0.003 'oytline width for crop marks ll = 0.25 ' line length for crop marks s.GetBoundingBox x, y, w, h 'top Set s1 = ActiveLayer.CreateLineSegment(x + w / 2, y + h + d, x + w / 2, y + h + d + ll) sr2.Add s1 'right Set s1 = ActiveLayer.CreateLineSegment(x + w + d, y + h / 2, x + w + d + ll, y + h / 2) sr2.Add s1 'bottom Set s1 = ActiveLayer.CreateLineSegment(x + w / 2, y - d, x + w / 2, y - d - ll) sr2.Add s1 'left Set s1 = ActiveLayer.CreateLineSegment(x - d, y + h / 2, x - d - ll, y + h / 2) sr2.Add s1 Set s1 = sr2.Group s1.Outline.Width = lw s.CreateSelection ' reselect original item s.Ungroup
ActiveDocument.EndCommandGroup
End Sub
~John
RunFlaCruiser said: Here is an example of the macro I need, is it possible? I know nothing about programming, I do not think it is hard for those who know, based on Dizzy, I think it is easy to understand me. This is the idea
[/quote]Wow... What a speed :)
Oh sorry.
I put it to inch for my testing.
Just change:
ActiveDocument.Unit = cdrInch
to
ActiveDocument.Unit = cdrMillimeter
and set needed values.See comments in code.
this is a hug kkk :)
Thank you once again can not imagine how this so simple is so handy.