Shape.DrapeFill

Property DrapeFill As Boolean

Member of Shape

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

The following VBA 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