Свойство 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.