Object Model Reference : Classes : E : EffectBlend : Methods : EffectBlend.FuseEnd
|
|
| Object Model Reference : Classes : E : EffectBlend : Methods : EffectBlend.FuseEnd |
Function FuseEnd() As Boolean
Member of EffectBlend
The FuseEnd method fuses the end components of two blends, attached to one shape, into one blend by removing the intermediate shape.
The following VBA 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.