Метод GradientStops.Insert (Office)

Статья
04/07/2023

Добавляет остановку к градиенту.

Синтаксис

expression. Вставка (RGB, Position, Transparency, Index)

Выражение Выражение, возвращающее объект GradientStops .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
RGB	Обязательный	MsoThemeColorSchemeIndex	Задает цвет на градиентной остановке.
Position	Обязательный	Single	Указывает положение остановки в градиенте, выраженное в процентах.
Transparency	Необязательно	Single	Указывает прозрачность цвета на градиентной остановке.
Индекс;	Необязательный	Long	Номер индекса остановки.

Замечания

Градиенты — это плавный переход от одного состояния цвета к другому. Конечные точки этих разделов называются остановками.

Пример

В следующем примере создаются три цветовые градиентные остановки в Microsoft PowerPoint.

Sub gradients() 
 Set myDocument = ActivePresentation.Slides(1) 
 Set GradientShapeFill = myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill 
 With GradientShapeFill 
 .ForeColor.RGB = RGB(0, 128, 128) 
 .OneColorGradient msoGradientHorizontal, 1, 1 
 .GradientStops.Insert RGB(255, 0, 0), 0.25 
 .GradientStops.Insert RGB(0, 255, 0), 0.5 
 .GradientStops.Insert RGB(0, 0, 255), 0.75 
 End With 
End Sub

См. также

Элементы объекта GradientStops

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через