Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.Magnification
|
|
| Object Model Reference : Classes : E : EffectLens : Properties : EffectLens.Magnification |
Property Magnification As Double
Member of EffectLens
The Magnification property returns or set the magnification level of a Magnify lens.
The following VBA example makes sure that no Magnify lens uses magnification level greater than 3.0×.
Sub Test1() |
Dim s As Shape, eff As Effect |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrLens Then |
If eff.Lens.Type = cdrLensMagnify Then |
If eff.Lens.Magnification > 3 Then |
eff.Lens.Magnification = 3 |
End If |
End If |
Exit For |
End If |
Next eff |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.