Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.UseFillColor
|
|
| Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.UseFillColor |
Property UseFillColor As Boolean
Member of EffectLens
The UseFillColor property returns or specifies whether the fill color is for a Wireframe 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.