Sub Test() Dim s1 As Shape, s2 As Shape Dim s As Shape Dim g As ShapeRange, stps As ShapeRange Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2) s1.Fill.UniformColor.RGBAssign 255, 0, 0 Set s2 = ActiveLayer.CreateEllipse(6, 6, 7, 7) s2.Fill.UniformColor.RGBAssign 255, 255, 0 s1.CreateBlend s2 Set g = s1.Effects(1).Separate Set stps = g(1).Shapes.All g(1).Ungroup For Each s In stps s.Move (Rnd() - 0.5) * s.SizeWidth, (Rnd() - 0.5) * s.SizeHeight Next sEnd Sub