Sub Test() Dim s As Shape Dim b As EffectBlend For Each s In ActivePage.Shapes If s.Type = cdrBlendGroupShape Then Set b = s.Effect.Blend If b.ColorBlendType <> cdrDirectFountainFillBlend And _ b.ColorBlendType <> cdrCustomFountainFillBlend Then b.ColorBlendType = cdrDirectFountainFillBlend End If End If Next sEnd Sub