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