Метод FillFormat.OneColorGradient (PowerPoint)
Задает для указанной заливки одноцветный градиент.
Синтаксис
выражение. OneColorGradient
( _Style_
, _Variant_
, _Degree_
)
Выражение Переменная, представляющая объект FillFormat .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Style | Обязательный | MsoGradientStyle | Стиль градиента. |
Variant | Обязательный | Long | Вариант градиента. Может быть значением от 1 до 4, соответствующим четырем вариантам на вкладке Градиент на вкладке Заливка фигуры . Если style имеет значение msoGradientFromTitle или msoGradientFromCenter, этот аргумент может иметь значение 1 или 2. |
Degree | Обязательный | Single | Степень градиента. Может быть значением от 0,0 (темный) до 1,0 (светлый). |
Замечания
Значение параметра Style может быть одной из этих констант MsoGradientStyle .
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle |
msoGradientHorizontal |
msoGradientMixed |
msoGradientVertical |
Пример
В этом примере в myDocument добавляется прямоугольник с одноцветной заливкой градиента.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.