PatternFill.MirrorFill

Property MirrorFill As Boolean

The MirrorFill property returns or sets whether to mirror pattern tiles in a pattern fill.

The following code example applies a full-color bitmap pattern to a rectangle and flips the pattern tiles to create a seamless pattern fill:

Sub Test() 
 Dim s As Shape 
 Dim pf As PatternFill 
 Dim FileName As String 
 FileName = Application.SetupPath & "Custom\Patterns\drwx0835.pat" 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set pf = s.Fill.ApplyPatternFill(cdrFullColorPattern, FileName) 
 pf.MirrorFill = True 
End Sub