EffectContour.ContourGroup

Property ContourGroup As Shape

The ContourGroup property returns the contour group as a Shape object.

The ContourGroup property returns a read-only value.

The following code example creates an ellipse and a rectangle, and applies a contour effect to each shape. It then applies a perspective to the contour group.

Sub Test() 
 Dim s As Shape, s2 As Shape 
 Dim e As Effect 
 Set s = ActiveLayer.CreateEllipse2(5, 4, 2) 
 s.Fill.UniformColor.RGBAssign 255, 0, 0 
 Set s2 = ActiveLayer.CreateRectangle(3, 3, 5, 5) 
 s2.Fill.UniformColor.RGBAssign 0, 0, 255 
 For Each s In ActiveLayer.Shapes.All 
  Set e = s.CreateContour(cdrContourInside, , 5) 
  e.Contour.ContourGroup.CreatePerspective 2, 2 
 Next s 
End Sub