Свойство FillFormat.GradientStyle (Word)
Возвращает стиль градиента для указанной заливки. MsoGradientStyle, доступный только для чтения.
Синтаксис
expression. GradientStyle
Выражение Выражение, представляющее объект FillFormat .
Замечания
Это свойство доступно только для чтения. Используйте метод OneColorGradient или TwoColorGradient , чтобы задать стиль градиента для заливки.
Попытка вернуть это свойство для заливки без градиента приводит к ошибке. Используйте свойство Type , чтобы определить, имеет ли заливка градиент.
Пример
В этом примере к активному документу добавляется прямоугольник и его стиль градиента заливки соответствует стилю фигуры с именем rect1. Чтобы пример работал, rect1 должен иметь градиентную заливку.
Dim docActive As Document
Dim lngGradient As Long
Set docActive = ActiveDocument
With docActive.Shapes
lngGradient = .Item("rect1").Fill.GradientStyle
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient lngGradient, 1, 1
End With
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.