Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает стиль градиента для указанной заливки. Только для чтения.
Синтаксис
expression. GradientStyle
выражение Переменная, представляющая объект FillFormat .
Возвращаемое значение
MsoGradientStyle
Замечания
Используйте методы OneColorGradient, PresetGradient или TwoColorGradient , чтобы задать стиль градиента для заливки. Попытка вернуть это свойство для заливки без градиента приводит к ошибке. Используйте свойство Type , чтобы определить, имеет ли заливка градиент.
Значение, возвращаемое свойством GradientStyle, может быть одной из этих констант MsoGradientStyle .
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Пример
В этом примере в myDocument добавляется прямоугольник и устанавливается стиль градиента заливки в соответствии с стилем фигуры с именем rect1. Чтобы пример работал, rect1 должен иметь градиентную заливку.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
gradStyle1 = .Item("rect1").Fill.GradientStyle
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient gradStyle1, 1, 1
End With
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.