Object Model Reference : Classes : E : EffectBlend : Properties : EffectBlend.ColorAcceleration |
Property ColorAcceleration As Long
Member of EffectBlend
The ColorAcceleration property returns or specifies the rate of color acceleration along a path for a blend. Higher numbers allow the colors to move more quickly through the spectrum as they approach the end shape.
The following VBA example creates a non-uniform blend between a rectangle and a circle.
Sub Test() |
Dim s1 As Shape, s2 As Shape |
Set s1 = ActiveLayer.CreateEllipse2(2, 2, 1) |
s1.Fill.UniformColor.RGBAssign 255, 0, 0 |
Set s2 = ActiveLayer.CreateRectangle2(4, 4, 1, 1) |
s2.Fill.UniformColor.RGBAssign 255, 255, 0 |
With s2.CreateBlend(s1).Blend |
.LinkAcceleration = False |
.ColorAcceleration = 50 |
.SpacingAcceleration = -50 |
.AccelerateSize = True |
End With |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.