Greetings al!
I'm trying to write a quick little macro to take a Postscript hatching fill and make it a color. Doing everything manually works a treat:
1. Create a hatching fill (with thick lines)2. Convert it to a bitmap3. Trace it and delete the white objects in the trace.
What you have left is a curve you can color.
I've got this simple code and although the Trace command seems to think about things before the macro ends, no objects are produced. Which may make sense given that the "TypeName" command produces "IVGTraceSettings". If the Trace command is only creating settings, how the heck to you perform the actual trace?
Any help would be greatly appreciated,Ken
Dim OrigSel As ShapeRange, BMap As Shape, Tracd Set OrigSel = ActiveSelectionRange Set BMap = OrigSel.ConvertToBitmapEx(cdrGrayscaleImage, False, False, 1200, cdrNoAntiAliasing, True, False, 95) Set Tracd = BMap.Bitmap.Trace(cdrTraceLineArt, 100, 100, cdrColorCMYK) Debug.Print TypeName(Tracd)