Patterned Method [Publisher 2003 VBA Language Reference]
Sets the specified fill to a pattern.
expression.Patterned(Pattern)
expression Required. An expression that returns one of the objects in the Applies To list.
MsoPatternType
MsoPatternType can be one of these MsoPatternType constants. |
msoPattern5Percent |
msoPattern10Percent |
msoPattern20Percent |
msoPattern25Percent |
msoPattern30Percent |
msoPattern40Percent |
msoPattern50Percent |
msoPattern60Percent |
msoPattern70Percent |
msoPattern75Percent |
msoPattern80Percent |
msoPattern90Percent |
msoPatternDarkDownwardDiagonal |
msoPatternDarkHorizontal |
msoPatternDarkUpwardDiagonal |
msoPatternDarkVertical |
msoPatternDashedDownwardDiagonal |
msoPatternDashedHorizontal |
msoPatternDashedUpwardDiagonal |
msoPatternDashedVertical |
msoPatternDiagonalBrick |
msoPatternDivot |
msoPatternDottedDiamond |
msoPatternDottedGrid |
msoPatternHorizontalBrick |
msoPatternLargeCheckerBoard |
msoPatternLargeConfetti |
msoPatternLargeGrid |
msoPatternLightDownwardDiagonal |
msoPatternLightHorizontal |
msoPatternLightUpwardDiagonal |
msoPatternLightVertical |
msoPatternMixed Not used with this method. |
msoPatternNarrowHorizontal |
msoPatternNarrowVertical |
msoPatternOutlinedDiamond |
msoPatternPlaid |
msoPatternShingle |
msoPatternSmallCheckerBoard |
msoPatternSmallConfetti |
msoPatternSmallGrid |
msoPatternSolidDiamond |
msoPatternSphere |
msoPatternTrellis |
msoPatternWave |
msoPatternWeave |
msoPatternWideDownwardDiagonal |
msoPatternWideUpwardDiagonal |
msoPatternZigZag |
Remarks
Use the BackColor and ForeColor properties to set the colors used in the pattern.
Example
This example adds an oval with a patterned fill to the active publication.
With ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeOval, _
Left:=60, Top:=60, Width:=80, Height:=40).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(0, 0, 255)
.Patterned Pattern:=msoPatternDarkVertical
End With
Applies to | FillFormat Object