Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.ToColor
|
|
| Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.ToColor |
Property ToColor As Color
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.
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.