API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.ColorMapPalette property
Gets or sets the color map palette of type cdrFountainFillBlendType
Syntax:
Property Get ColorMapPalette() As cdrFountainFillBlendType
Property Let ColorMapPalette(ByVal Value As cdrFountainFillBlendType)
Remarks:
The ColorMapPalette property returns or specifies the color-blending mode to use for a Custom Color Map lens. The ColorMapPalette property returns cdrFountainFillBlendType.
Examples:
The following VBA example creates a Custom Color Map lens with a Forward rainbow color blend.
Sub Test()
Dim s As Shape, eff As Effect
Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5)
s.Fill.ApplyFountainFill
Set s = ActiveLayer.CreateEllipse(1, 1, 6, 6)
Set eff = s.CreateLens(cdrLensCustomColorMap, , CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0))
eff.Lens.ColorMapPalette = cdrRainbowCWFountainFillBlend 
End Sub