Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Задает для указанной заливки двухцветный градиент.
Синтаксис
expression. TwoColorGradient (Style, Variant)
выражение Переменная, представляющая объект FillFormat .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Style | Обязательный | MsoGradientStyle | Стиль градиента. |
| Variant | Обязательный | Long | Вариант градиента. Может быть от 1 до 4, что соответствует четырем вариантам на вложенной вкладке Градиент на вкладке Заливка фигуры . Если style имеет значение msoGradientFromTitle или msoGradientFromCenter, этот аргумент может иметь значение 1 или 2. |
Пример
В этом примере к myDocument добавляется прямоугольник с двухцветной градиентной заливкой и задает цвет фона и переднего плана для заливки.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, Left:=0, _
Top:=0, Width:=40, Height:=80).Fill
.ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0)
.BackColor.RGB = RGB(Red:=0, Green:=170, Blue:=170)
.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.