Fill.Pattern

Property Pattern As PatternFill

Member of Fill

The Pattern property returns a PatternFill object that represents the properties of a pattern fill.

The following code example creates a rectangle and applies a skewed two-color pattern fill to it:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 s.Fill.ApplyPatternFill cdrTwoColorPattern, , 4, 
CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0) 
 s.Fill.Pattern.SkewAngle = 20 
End Sub