Shape.DrapeFill

Property DrapeFill As Boolean

Member of Shape

The DrapeFill property returns or sets whether to drape the fill of a group of objects in a vector extrusion.

The following code example creates two ellipses, groups them together, and applies a two-color pattern fill that flows across both objects:

Sub Test() 
 Dim s1 As Shape, s2 As Shape, grp As Shape 
 Set s1 = ActiveLayer.CreateEllipse(1.003717, 9.103496, 3.012929, 
7.580724, 90#, 90#, False) 
 s1.Outline.Type = cdrNoOutline 
 Set s2 = ActiveLayer.CreateEllipse(4.683748, 6.332898, 2.103496, 
8.574756, 90#, 90#, False) 
 s2.Outline.Type = cdrNoOutline 
 s1.Selected = True 
 Set grp = ActiveSelection.Group 
 With grp.Fill.ApplyPatternFill(cdrTwoColorPattern, "%%['$'UH$[UH", 
0, _ 
    CreateCMYKColor(0, 100, 100, 0), CreateCMYKColor(0, 0, 100, 0), 
False) 
  .TransformWithShape = False 
  .TileHeight = 1 
  .TileWidth = 1 
  .OriginX = 0 
  .OriginY = 0 
 End With 
 grp.DrapeFill = True 
End Sub