The object I'm adding the contour to.
Can i have an example of how this goes?
John helpled me w/contours previously.
Below is what i have now. I have the contour being applied, broken apart, and top object deleted. So, how do i get the contour the same colors as the object i applied the contour to? Make sense? Can i see an example?
Sub TxtThickn() ' outer contour to thicken text .007ActiveDocument.BeginCommandGroup "my crunchy macro" Dim s As Shape, e As Effect, sr As ShapeRange Dim dVal# Dim colOutline As Color, colFill1 As Color, colFill2 As Color Set s = ActiveShape If s Is Nothing Then Exit Sub dVal = 0.007 Set colOutline = CreateCMYKColor(0, 0, 0, 100) Set colFill1 = CreateCMYKColor(80, 40, 24, 100) Set colFill2 = CreateCMYKColor(80, 40, 24, 100) Set e = s.CreateContour With e.Contour .Direction = cdrContourOutside .Offset = dVal .Steps = 1 .OutlineColor = colOutline .FillColor = colFill1 .FillColorTo = colFill2 .SpacingAcceleration = 0 .ColorAcceleration = 0 .EndCapType = cdrContourRoundCap .CornerType = cdrContourCornerRound .MiterLimit = 15 End With Set sr = e.Separate 'do something with sr or the shapes it contains. ActiveLayer.Shapes(1).Delete ActiveDocument.EndCommandGroup saveFormPos True End Sub
Example:
HI.
Try
sr.Shapes.First.createselection
right under
sr.Shapes.First.Fill.ApplyUniformFill col 'added
~John
Adding outside contour (1 step, distrance 5 mm) to each shape in selection and then separate original shapes from contours
Hello,
How to make it work if fill type is fountainfill?
Thanks,
Kind regards