Свойство FillFormat.GradientColorType (Publisher)

  • Статья

Возвращает константу MsoGradientColorType , указывающую тип цвета градиента для указанной заливки. Только для чтения.

Синтаксис

expression. GradientColorType

Выражение Переменная, представляющая объект FillFormat .

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

MsoGradientColorType

Замечания

Используйте методы OneColorGradient, PresetGradient или TwoColorGradient , чтобы задать тип градиента для заливки.

Значение свойства GradientColorType может быть одной из констант MsoGradientColorType , объявленных в библиотеке типов Microsoft Office.

Пример

В этом примере заливка всех фигур на первой странице активной публикации, имеющих двухцветную градиентную заливку, изменяется на предустановленную градиентную заливку.

Dim shpLoop As Shape 
 
' Loop through collection of shapes. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop.Fill 
 ' Test for two-color gradient. 
 If .GradientColorType = msoGradientTwoColors Then 
 ' Apply a preset gradient. 
 .PresetGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, PresetGradientType:=msoGradientBrass 
 End If 
 End With 
Next shpLoop

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

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