将指定填充设为一种图案。
expression.Patterned(Pattern)
expression 必选。该表达式返回一个 FillFormat 对象。
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 |
使用 BackColor 和 ForeColor 属性设置图案使用的颜色。
本示例将一个带有图案填充的椭圆添加到 myDocument
。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeOval, 60, 60, 80, 40).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(0, 0, 255)
.Patterned msoPatternDarkVertical
End With