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 eEnd Sub