Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Задает указанную заливку в качестве образца.
Синтаксис
выражение. Узорчатый (шаблонный)
выражение Переменная, представляющая объект FillFormat .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Pattern | Обязательный | MsoPatternType | Шаблон, который будет использоваться для указанной заливки. Возможные значения см. в примечаниях. |
Примечания
Используйте свойства BackColorи ForeColor для установки цветов, используемых в шаблоне.
Значением параметра Pattern может быть одна из этих констант 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 |
Пример
В этом примере добавляется овал с узорчатой заливкой в 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.