Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.Type
|
|
| Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.Type |
Property Type As cdrLensType
Member of EffectLens
The Type property returns or specifies the lens type.
The Type property returns cdrLensType.
The following VBA example selects all Transparency lenses on the page.
Sub Test1() |
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 sr.Add s |
Exit For |
End If |
Next eff |
Next s |
sr.CreateSelection |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.