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 code 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