Gets or sets the type of distortion of cdrDistortionType type
Syntax:
Property Get Type() As cdrDistortionType
Property Let Type(ByVal Value As cdrDistortionType)
Remarks:
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.
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