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 If eff.Distortion.Type = cdrDistortionPushPull Then eff.Distortion.PushPull.Amplitude = 30 End If Exit For End If Next eff Next sEnd Sub