EffectBlend.Angle

Property Angle As Double

The Angle property returns or sets the rotation angle of intermediate blend steps.

The following code example creates a blend between two rectangles. The intermediate blend objects are rotated by 360?during the progression.

Sub Test() 
 Dim s1 As Shape, s2 As Shape 
 Set s1 = ActiveLayer.CreateRectangle2(0, 0, 3, 1) 
 s1.Fill.UniformColor.RGBAssign 255, 0, 0 
 Set s2 = ActiveLayer.CreateRectangle2(4, 4, 3, 1) 
 s2.Fill.UniformColor.RGBAssign 255, 255, 0 
 With s2.CreateBlend(s1).Blend 
  .Loop = False 
  .Angle = 360 
 End With 
End Sub