EffectBlend.CopyFrom

Function CopyFrom(Source As EffectBlend) As Boolean

The CopyFrom method copies the properties from one blend to another.


Parameter	Description
Source	Specifies the blend and copies its effect properties to the active blend

The following VBA example creates a blend between two circles. It then creates another blend and copies the properties from the first one.

Sub Test()

Dim s1 As Shape, s2 As Shape, s3 As Shape, s4 As Shape

Dim Blend As EffectBlend

Set s1 = ActiveLayer.CreateEllipse2(0.6, 4.5, 1)

Set s2 = s1.Duplicate(7.4, 4)

s1.Fill.UniformColor.RGBAssign 255, 0, 0

s2.Fill.UniformColor.RGBAssign 255, 255, 0

Set Blend = s1.CreateBlend(s2, 30, cdrRainbowCWFountainFillBlend).Blend

Set s3 = ActiveLayer.CreateEllipse2(0, 10, 1)

Set s4 = s3.Duplicate(5, -3)

s3.Fill.UniformColor.RGBAssign 0, 128, 0

s4.Fill.UniformColor.RGBAssign 0, 0, 255

s3.CreateBlend(s4).Blend.CopyFrom Blend

End Sub