Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Возвращает градиентный стиль для заданной заливки. Только для чтения.
Синтаксис
выражение. GradientStyle
выражение Переменная, представляющая объект FillFormat .
Возвращаемое значение
MsoGradientStyle
Примечания
Чтобы задать стиль градиента для заливки, используйте методы OneColorGradient, PresetGradient или TwoColorGradient . Попытка вернуть это свойство для заливки без градиента приводит к ошибке. Используйте свойство "Тип ", чтобы определить, имеет ли заливка градиент.
Значение, возвращаемое свойством GradientStyle , может быть одной из этих констант MsoGradientStyle .
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Пример
В этом примере добавляется прямоугольник в myDocument и задается стиль градиента заливки в соответствии со стилем фигуры с именем "rect1". Чтобы пример работал, прямоугольник1 должен иметь градиентную заливку.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
gradStyle1 = .Item("rect1").Fill.GradientStyle
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient gradStyle1, 1, 1
End With
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.