EffectBlend.Path

Property Path As Shape

The Path property returns or sets the shape to which the blend is attached.

The following code example creates a blend, attaches it to a path, and stretches it so that it follows the complete length of the path:

Sub Test() 
 Dim sPath As Shape, s1 As Shape, s2 As Shape 
 Set sPath = ActiveLayer.CreateCurveSegment(0.6, 4.5, 7.8, 8.5, 5.2, 
62, 5.3, -96) 
 Set s1 = ActiveLayer.CreateEllipse2(0, 0, 1) 
 Set s2 = s1.Duplicate(5, 5) 
 s1.Fill.UniformColor.RGBAssign 255, 0, 0 
 s2.Fill.UniformColor.RGBAssign 255, 255, 0 
 With s1.CreateBlend(s2).Blend 
  .Path = sPath 
  .FullPath = True 
  .RotateShapes = True 
 End With 
End Sub