Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.Rate
|
|
| Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.Rate |
Property Rate As Long
Member of EffectLens
The Rate property returns or specifies the strength of the lens effect. Values range from 0% to 100%.
The Rate property is available only for the following types of lenses: Brighten, Color add, Color limit, Fish eye, and Transparency.
The following VBA example selects all shapes with a Transparency lens and with a transparency level greater than 80%.
Sub Test() |
Dim s As Shape, eff As Effect |
Dim sr As New ShapeRange |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrLens Then |
If eff.Lens.Type = cdrLensTransparency Then |
If eff.Lens.Rate > 80 Then sr.Add s |
End If |
Exit For |
End If |
Next eff |
Next s |
sr.CreateSelection |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.