Object Model Reference : Classes : E : EffectPushPullDistortion : Properties : EffectPushPullDistortion.Amplitude
|
|
| Object Model Reference : Classes : E : EffectPushPullDistortion : Properties : EffectPushPullDistortion.Amplitude |
Property Amplitude As Long
Member of EffectPushPullDistortion
The Amplitude property returns or specifies the strength of the effect in a Push-and-pull distortion effect.
The range of the distortion value is 1 to 200.
The following VBA example sets the amplitude of all Push-and-pull distortion effects to 30.
Sub Test() |
Dim s As Shape, eff As Effect |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrDistortion Then |
If eff.Distortion.Type = cdrDistortionPushPull Then |
eff.Distortion.PushPull.Amplitude = 30 |
End If |
Exit For |
End If |
Next eff |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.