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


Свойство FillFormat.GradientDegree (Word)

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

Синтаксис

выражение. GradientDegree

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

Замечания

Значение 0 (ноль) означает, что черный цвет смешивается с цветом переднего плана фигуры, чтобы сформировать градиент; значение 1 означает, что белый цвет смешивается; и значения от 0 до 1 означают, что более темный или светлый оттенок цвета переднего плана смешивается.

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

Пример

В этом примере к активному документу добавляется прямоугольник и устанавливается степень его градиента заливки в соответствии с градиентом фигуры с именем "Прямоугольник 2". Если в прямоугольнике 2 нет одноцветной градиентной заливки, этот пример завершается ошибкой.

Dim docActive As Document 
Dim sngGradient As Single 
 
Set docActive = ActiveDocument 
With docActive.Shapes 
 sngGradient = .Item("Rectangle 2").Fill.GradientDegree 
 
 With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill 
 .ForeColor.RGB = RGB(0, 128, 128) 
 .OneColorGradient msoGradientHorizontal, 1, sngGradient 
 End With 
End With

См. также

Объект FillFormat

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

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