Examples:
The following VBA example determines whether a blend effect has been applied to the selected shape. If so, it changes the number of blend steps to three.
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 e
End Sub