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

Статья
04/07/2023

Возвращает значение Long , указывающее градиентный вариант для указанной заливки. Как правило, значения представляют собой целые числа от 1 до 4 для большинства градиентных заливок. Если стиль градиента — msoGradientFromTitle или msoGradientFromCenter, это свойство возвращает значение 1 или 2.

Значения этого свойства соответствуют вариантам градиента (нумерованным слева направо и сверху вниз) на вкладке Градиент в диалоговом окне Эффекты заливки . Только для чтения.

Синтаксис

expression. GradientVariant

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

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

Длинное целое

Замечания

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

Пример

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

Dim intVariant As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient variant of rect1. 
 intVariant = .Item("rect1").Fill.GradientVariant 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=intVariant, Degree:=1 
 End With 
End With

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

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