Object Model Reference : Classes : P : PatternFill : Properties : PatternFill.MirrorFill |
Property MirrorFill As Boolean
Member of PatternFill
The MirrorFill property returns or specifies whether to mirror the pattern tiles in a pattern fill.
The following VBA 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 |
Copyright 2013 Corel Corporation. All rights reserved.