Object Model Reference : Classes : E : EffectDistortion : Properties : EffectDistortion.PushPull
|
|
| Object Model Reference : Classes : E : EffectDistortion : Properties : EffectDistortion.PushPull |
Property PushPull As EffectPushPullDistortion
Member of EffectDistortion
The PushPull property represents the settings for a Push-and-pull distortion object.
The following VBA example looks through all shapes and distortion effects. Depending on the type of distortion effect, corresponding effect parameters are altered.
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 |
Select Case eff.Distortion.Type |
Case cdrDistortionPushPull |
eff.Distortion.PushPull.Amplitude = 50 |
Case cdrDistortionTwister |
eff.Distortion.Twister.Angle = 400 |
Case cdrDistortionZipper |
eff.Distortion.Zipper.Smooth = True |
End Select |
End If |
Next eff |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.