Previous Document Next Document

Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.ToColor


EffectLens.ToColor

Property ToColor As Color

Description

Member of EffectLens

The ToColor property returns or specifies the ending color for the Custom Color Map lens.

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

VBA example

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.