Sub Test() Dim s As Shape Dim eff As Effect Set s = ActiveShape For Each eff In s.Effects If eff.Type = cdrBlend Then eff.Blend.Steps = 2 End If Next effEnd Sub