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
'
Sub bitmapTrace()
Dim sBit As Shape
Dim sTrace As ShapeRange
Set sBit = ActiveShape
With sBit.Bitmap.Trace(cdrTraceLineArt, 30, 95, cdrColorCMYK, , 3, False, True, True)
'.DetailLevelPercent = 95
'.Smoothing = 30
'.ColorMode cdrColorRGB
'.PaletteID
'.ColorCount 3
'.DeleteOriginalObject = False
'.RemoveBackground = True
'.RemoveEntireBackColor = True
.Finish
End With
Set sTrace = ActiveSelectionRange
sTrace.CreateSelection
sTrace.Move 7, 0
ActiveWindow.Refresh
End Sub
The PaletteID property specifies the fixed palette to use if the spot-color mode is selected.
Best reagrds
Mek
Okay... So the trace is def limited to Color Options. If that's the case then how do I proceed w/this?
Sub bitmapTrace()Dim sBit As ShapeDim strace As ShapeRange
Set sBit = ActiveShape With sBit.Bitmap.Trace(cdrTraceLineArt, 30, 90, cdrColorRGB, , , False, True, True) .Finish End With Set strace = ActiveSelectionRange strace.CreateSelection strace.Move 7, 0 palMatch
ActiveWindow.RefreshEnd Sub
Private Sub palMatch()
Dim strace As ShapeRange
Set strace = ActiveSelectionRange
For each s in strace
If ActivePalette.Name = "" Then ' Now I match my selection range to Active Pal Colors (im certain i seen a reference to this somwhere but I cannot find it in the forums). End If
next s
??????
I assume that's how this would work...
Chieri,
I answered this here: Match Colors to Palette
-Shelby