I cannot figure out how to change my color mode to my active palette colors. Actually is it the "color mode" or the Palette ID?
How do you set them up?
Sub bitmapTrace() Dim sBit As Shape Dim sTrace As ShapeRange Set sBit = ActiveShape With sBit.Bitmap.Trace(cdrTraceLineArt) .DetailLevelPercent = 95 .Smoothing = 30 '.ColorMode '.PaletteID '.ColorCount .DeleteOriginalObject = False .RemoveBackground = True .RemoveEntireBackColor = True .Finish End With Set sTrace = ActiveSelectionRange sTrace.CreateSelection sTrace.Move 7, 0 ActiveWindow.RefreshApplication.RefreshEnd Sub
'