Patterned Method

Microsoft Word Visual Basic

expression.Patterned(Pattern)

expression    Required. An expression that returns a FillFormat object.

Pattern   Required MsoPatternType. The pattern to be used for the specified fill.

MsoPatternType can be one of these MsoPatternType constants.
msoPattern10Percent
msoPattern25Percent
msoPattern40Percent
msoPattern5Percent
msoPattern70Percent
msoPattern80Percent
msoPatternDarkDownwardDiagonal
msoPatternDarkUpwardDiagonal
msoPatternDashedDownwardDiagonal
msoPattern20Percent
msoPattern30Percent
msoPattern50Percent
msoPattern60Percent
msoPattern75Percent
msoPattern90Percent
msoPatternDarkHorizontal
msoPatternDarkVertical
msoPatternDashedHorizontal
msoPatternDashedUpwardDiagonal
msoPatternDashedVertical
msoPatternDiagonalBrick
msoPatternDivot
msoPatternDottedDiamond
msoPatternDottedGrid
msoPatternHorizontalBrick
msoPatternLargeCheckerBoard
msoPatternLargeConfetti
msoPatternLargeGrid
msoPatternLightDownwardDiagonal
msoPatternLightHorizontal
msoPatternLightUpwardDiagonal
msoPatternLightVertical
msoPatternMixed
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 document.

Sub FillPattern()
    With ActiveDocument.Shapes.AddShape _
        (msoShapeOval, 60, 60, 80, 40).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .BackColor.RGB = RGB(0, 0, 255)
        .Patterned msoPatternDarkVertical
    End With
End Sub