EffectBlend.FuseStart

Function FuseStart() As Boolean

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

The following VBA example creates two blends from three circles. Then it 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)

Set eff = s2.CreateBlend(s3)

eff.Blend.FuseStart

End Sub