Sub Test() Dim e As Effect For Each e In ActiveShape.Effects If e.Type = cdrBlend Then e.Blend.Steps = 3 Exit For End If Next eEnd Sub