Sub Test() Dim s1 As Shape, s2 As Shape, s3 As Shape Dim eff As Effect Set s1 = ActiveLayer.CreateEllipse2(0, 0, 1) s1.Fill.UniformColor.RGBAssign 255, 0, 0 Set s2 = s1.Duplicate(4, 0) s2.Fill.UniformColor.RGBAssign 255, 255, 0 Set eff = s1.CreateBlend(s2, 15) Set s3 = eff.Blend.Split(8) s3.Move 0, 3End Sub