Sub Test() Dim s As Shape, eff As Effect, zip As EffectZipperDistortion For Each s In ActivePage.Shapes For Each eff In s.Effects If eff.Type = cdrDistortion Then If eff.Distortion.Type = cdrDistortionZipper Then Set zip = eff.Distortion.Zipper If zip.Frequency > 10 Then zip.Amplitude = 20 End If Exit For End If Next eff Next s End Sub