Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Задает для указанной заливки одноцветный градиент.
Синтаксис
выражение. 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 и обратная связь.