应用于 LineFormat 对象的 Pattern 属性。
设置或返回某值,该值代表应用于指定行的图案。可读写。MsoPatternType 类型。
| MsoPatternType 可以是下列 MsoPatternType 类型常数之一。 | 
| msoPattern10Percent | 
| msoPattern20Percent | 
| msoPattern25Percent | 
| msoPattern30Percent | 
| msoPattern40Percent | 
| msoPattern50Percent | 
| msoPattern5Percent | 
| msoPattern60Percent | 
| msoPattern70Percent | 
| msoPattern75Percent | 
| msoPattern80Percent | 
| msoPattern90Percent | 
| msoPatternDarkDownwardDiagonal | 
| msoPatternDarkHorizontal | 
| msoPatternDarkUpwardDiagonal | 
| 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 | 
| msoPatternDarkVertical | 
expression.Pattern
expression 必选。该表达式返回上述对象之一。
应用于 FillFormat 对象的 Pattern 属性。
设置或返回某值,该值代表应用于指定填充的图案。使用 BackColor 和 ForeColor 属性设置在图案中使用的颜色。只读。MsoPatternType 类型。
| MsoPatternType 可以是下列 MsoPatternType 类型常数之一。 | 
| msoPattern10Percent | 
| msoPattern20Percent | 
| msoPattern25Percent | 
| msoPattern30Percent | 
| msoPattern40Percent | 
| msoPattern50Percent | 
| msoPattern5Percent | 
| msoPattern60Percent | 
| msoPattern70Percent | 
| msoPattern75Percent | 
| msoPattern80Percent | 
| msoPattern90Percent | 
| msoPatternDarkDownwardDiagonal | 
| msoPatternDarkHorizontal | 
| msoPatternDarkUpwardDiagonal | 
| 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 | 
| msoPatternDarkVertical | 
expression.Pattern
expression 必选。该表达式返回上述对象之一。
本示例在 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 
 
 
本示例向 myDocument 中添加矩形,并且设置矩形的填充图案以适应名为“rect1”的形状中的填充图案。新矩形使用和 rect1 相同的图案,但是颜色没有必要相同。通过 BackColor 和 ForeColor 属性设置在该图案中使用的颜色。
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