Propriété FillFormat.GradientStyle (Publisher)

Renvoie une constante MsoGradientStyle indiquant le style de dégradé pour le remplissage spécifié. En lecture seule.

Syntaxe

expression. GradientStyle

Expression Variable qui représente un objet FillFormat .

Valeur renvoyée

MsoGradientStyle

Remarques

Utilisez la méthode OneColorGradient, PresetGradient ou TwoColorGradient pour définir le style de dégradé du remplissage.

Tentative de retour de cette propriété pour un remplissage qui n'est pas un dégradé génère une erreur. Utilisez la propriété Type pour déterminer si le remplissage utilise un dégradé.

La valeur de la propriété GradientStyle peut être une des constantes MsoGradientStyle déclarées dans la bibliothèque de type Microsoft Office.

Exemple

Cet exemple ajoute un rectangle à la composition active et définit le style de dégradé de son remplissage en fonction de celui de la forme intitulée rect1. Pour que cet exemple fonctionne, rect1 doit posséder un remplissage en dégradé.

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 

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.