expression.Patterned(Pattern)
expression Required. An expression that returns one of the objects in the Applies To list.
Pattern Required MsoPatternType. The pattern to be used for the specified fill.
| 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