将指定填充方式设置为一种图案。
expression.Patterned(Pattern)
expression 必需。该表达式返回一个 FillFormat 对象。
Pattern MsoPatternType,比需。用于指定填充方式的图案。
MsoPatternType 可以是下列 MsoPatternType 常量之一: |
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 |
可用 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