Sub Test() Dim e As Effect For Each e In ActiveShape.Effects If e.Type = cdrContour Then e.Contour.Direction = cdrContourOutside e.Contour.ColorBlendType = cdrRainbowCWFountainFillBlend Exit For End If Next eEnd Sub