Object Model Reference : Classes : E : EffectDistortion : Properties : EffectDistortion.Type
|
|
| Object Model Reference : Classes : E : EffectDistortion : Properties : EffectDistortion.Type |
Property Type As cdrDistortionType
Member of EffectDistortion
The Type property returns or specifies the type of distortion. Depending on the value of Type property, one of the effect objects (PushPull, Twister, or Zipper) is accessible.
The Type property returns a value of cdrDistortionType.
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.