EffectLens.FromColor property - Developer Area

API Documentation > Corel DESIGNER > 2022-v24 > EffectLens > IVGEffectLens

EffectLens.FromColor property

Gets or sets the starting color for custom color map lens

Syntax:

Property Get FromColor() As Color
Property Set FromColor(ByVal Value As Color)

Remarks:

The FromColor property returns or specifies the starting color for the Custom Color Map lens.

The following lens types do not accept color parameters: Brighten, Fish eye, Heat map, Invert, and Magnify.

Examples:

The following VBA example changes the color of all lenses on the page to red. For the Custom Color Map and Wireframe lenses, yellow is also used.

Sub Test()
  Dim s As Shape, eff As Effect
  For Each s In ActivePage.Shapes
    For Each eff In s.Effects
      If eff.Type = cdrLens Then
        Select Case eff.Lens.Type
          Case cdrLensColorAdd, cdrLensColorLimit, _
              cdrLensTintedGrayscale, cdrLensTransparency
            eff.Lens.Color.RGBAssign 255, 0, 0
          Case cdrLensCustomColorMap
            eff.Lens.FromColor.RGBAssign 255, 0, 0
            eff.Lens.ToColor.RGBAssign 255, 255, 0
          Case cdrLensWireframe
            With eff.Lens
              .UseFillColor = True
              .UseOutlineColor = True
              .FillColor.RGBAssign 255, 0, 0
              .OutlineColor.RGBAssign 255, 255, 0
            End With
        End Select
        Exit For
      End If
    Next eff
  Next s
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25