Pattern Property

Applies To

FillFormat object, LineFormat object.

Description

Returns a value that represents the pattern applied to the specified fill or line. Read-only Long.

Can be one of the following msoPatternType constants:

msoPattern10Percent	msoPattern20Percent
msoPattern25Percent	msoPattern30Percent
msoPattern40Percent	msoPattern50Percent
msoPattern5Percent	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	msoPatternNarrowHorizontal
msoPatternNarrowVertical	msoPatternOutlinedDiamond
msoPatternPlaid	msoPatternShingle
msoPatternSmallCheckerBoard	msoPatternSmallConfetti
msoPatternSmallGrid	msoPatternSolidDiamond
msoPatternSphere	msoPatternTrellis
msoPatternWave	msoPatternWeave
msoPatternWideDownwardDiagonal	msoPatternWideUpwardDiagonal
msoPatternZigZag

This property is read-only. Use the Patterned method to set the pattern for the fill or line.

Use the BackColor and ForeColor properties to set the colors used in the pattern.

Example

This example adds a rectangle to myDocument and sets its fill pattern to match that of the shape named "rect1." The new rectangle has the same pattern as rect1, but not necessarily the same colors. The colors used in the pattern are set with the BackColor and ForeColor properties.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    pattern1 = .Item("rect1").Fill.Pattern
    With .AddShape(msoShapeRectangle, 100, 100, 120, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .BackColor.RGB = RGB(0, 0, 255)
        .Patterned pattern1
    End With
End With

This example adds a patterned line to myDocument.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 100, 250, 0).Line
    .Weight = 6
    .ForeColor.RGB = RGB(0, 0, 255)
    .BackColor.RGB = RGB(128, 0, 0)
    .Pattern = msoPatternDarkDownwardDiagonal
End With