EffectBlend.FuseEnd

Function FuseEnd() As Boolean

The FuseEnd method fuses the end components of two blends, attached to one shape, into one blend by removing the intermediate shape.

The following code example creates two blends between three circles and then merges the blends by removing the middle circle:

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, 3) 
 Set s3 = s1.Duplicate(8, 0) 
 s3.OrderFrontOf s2 
 s2.Fill.UniformColor.RGBAssign 255, 255, 0 
 Set eff = s1.CreateBlend(s2) 
 s2.CreateBlend s3 
 eff.Blend.FuseEnd 
End Sub