The following VBA example creates a blend between two circles, separates the blend, and moves the blend steps up and to the right. In this example, the
Effect.Separate method returns a
ShapeRange object, the first element of which is the same blend group shape.
Sub Test()
Dim s1 As Shape, s2 As Shape, eff As Effect, s As Shape
Set s1 = ActiveLayer.CreateEllipse(0, 10, 2, 8)
Set s2 = s1.Duplicate(5, -7)
s1.Fill.UniformColor.CMYKAssign 0, 0, 100, 0
s2.Fill.UniformColor.CMYKAssign 0, 100, 100, 0
Set eff = s2.CreateBlend(s1)
Set s = eff.Blend.BlendGroup
eff.Separate
s.Move 1, 1
End Sub