Examples:
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