全部显示

Pattern 属性

返回或设置代表应用于指定填充对象或线条的图案的值。对于 FillFormat 对象，为 MsoPatternType，只读；对于 LineFormat 对象，为 MsoPatternType，可读写。

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

还可使用 Patterned 方法设置填充对象或线条的图案。

可用 BackColor 和 ForeColor 属性设置图案颜色。

示例

本示例将一个矩形添加至 myDocument 中，并使其填充图案与名为“rect1”的图形的填充图案相匹配。新矩形与“rect1”的填充图案相同，但颜色不必相同。图案颜色可用 BackColor 和 ForeColor 属性设置。

Set myDocument = ActiveDocument
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

本示例将一条带图案的线条添加至 myDocument。

Set myDocument = ActiveDocument
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