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

Возвращает коллекцию 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 и обратная связь.