Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade FillFormat.GradientStyle (Editor)FillFormat.GradientStyle Property (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Retorna uma constante MsoGradientStyle indicando o estilo de gradiente para o preenchimento especificado. Somente leitura.Returns an MsoGradientStyle constant indicating the gradient style for the specified fill. Read-only.

SintaxeSyntax

expressão. GradientStyleexpression. GradientStyle

_expression_A variável que representa um objeto FillFormat ._expression_A variable that represents a FillFormat object.

Valor retornadoReturn Value

MsoGradientStyleMsoGradientStyle

ComentáriosRemarks

Use o método OneColorGradient, PresetGradientou TwoColorGradient para definir o estilo de gradiente para o preenchimento.Use the OneColorGradient, PresetGradient, or TwoColorGradient method to set the gradient style for the fill.

A tentativa de retornar essa propriedade para um preenchimento que não tem um gradiente gerará um erro. Use a propriedade Type para determinar se o preenchimento tem um gradiente.Attempting to return this property for a fill that doesn't have a gradient generates an error. Use the Type property to determine whether the fill has a gradient.

O valor da propriedade GradientStyle pode ser uma do * * MsoGradientStyle* * constantes declaradas na biblioteca de tipos do Microsoft Office.The GradientStyle property value can be one of the ** MsoGradientStyle** constants declared in the Microsoft Office type library.

ExemploExample

Este exemplo adiciona um retângulo à publicação ativa e define seu estilo de gradiente de preenchimento para que coincida com o da forma chamada rect1. Para que o exemplo funcione, rect1 precisa ter um preenchimento de gradiente.This example adds a rectangle to the active publication and sets its fill gradient style to match that of the shape named rect1. For the example to work, rect1 must have a gradient fill.

Dim intStyle As Integer 

With ActiveDocument.Pages(1).Shapes 
 ' Store gradient style of rect1. 
 intStyle = .Item("rect1").Fill.GradientStyle 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=intStyle, _ 
 Variant:=1, Degree:=1 
 End With 
End With 
© 2018 Microsoft