全部显示

Patterned 方法

将指定填充方式设置为一种图案。

expression   必需。该表达式返回一个 FillFormat 对象。

Pattern  MsoPatternType，比需。用于指定填充方式的图案。

说明

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

示例

本示例在活动文档中添加一个作为填充图案的椭圆。

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