Effect.Distortion

Property Distortion As EffectDistortion

Member of Effect

The Distortion property returns the EffectDistortion object for the distortion effect.

The Distortion property returns a read-only value.

The following VBA example changes properties of the distortion effect for the active shape.

Sub Test()

Dim e As Effect

For Each e In ActiveShape.Effects

If e.Type = cdrDistortion Then

Select Case e.Distortion.Type

Case cdrDistortionZipper

e.Distortion.Zipper.Amplitude = 50

Case cdrDistortionTwister

e.Distortion.Twister.Angle = 120

Case cdrDistortionPushPull

e.Distortion.PushPull.Amplitude = 70

End Select

End If

Next e

End Sub