Свойство FillFormat.GradientStops (PowerPoint)

Статья
04/07/2023

Возвращает коллекцию GradientStops, связанную с указанным форматом заливки. Только для чтения.

Синтаксис

expression. GradientStops

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

Возвращаемое значение

GradientStops

Замечания

Используйте метод GradientStops.Insert , чтобы добавить градиентные остановки в коллекцию GradientStops для указанного объекта.

Пример

В следующем примере показано, как добавить градиентную остановку в позиции 50 % в коллекцию GradientStops формата заливки первой фигуры на первом слайде активной презентации. Чтобы этот пример работал, на фигуре уже должна быть применена градиентная заливка.

Public Sub GradientStops_Example() 
 
    Dim pptShape As Shape 
    Dim pptFillFormat As FillFormat 
    Dim pptGradientStops As GradientStops 
     
    Set pptShape = ActivePresentation.Slides(1).Shapes(1) 
    Set pptFillFormat = pptShape.Fill 
    Set pptGradientStops = pptFillFormat.GradientStops 
     
    pptGradientStops.Insert RGB(255, 0, 255), 0.5 
     
End Sub

См. также

Объект FillFormat

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

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

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