Sub Test() Dim s As Shape, eff As Effect For Each s In ActivePage.Shapes For Each eff In s.Effects If eff.Type = cdrContour Then If eff.Contour.ColorBlendType = cdrRainbowCWFountainFillBlend Then eff.Contour.ColorBlendType = cdrRainbowCCWFountainFillBlend End If End If Next eff Next sEnd Sub