Propriété FillFormat.GradientVariant (Publisher)

Renvoie un type Long indiquant la variante de dégradé pour le remplissage spécifié. En règle générale, les valeurs sont des entiers compris entre 1 et 4 pour la plupart des remplissages dégradés. Si le style de dégradé est msoGradientFromTitle ou msoGradientFromCenter, cette propriété renvoie la valeur 1 ou 2.

Les valeurs de cette propriété correspondent aux variantes de dégradé (numérotées de gauche à droite et de haut en bas) sur l'onglet dégradé de la boîte de dialogue Effets de remplissage. En lecture seule.

Syntaxe

expression. GradientVariant

Expression Variable qui représente un objet FillFormat .

Valeur renvoyée

Entier long

Remarques

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

Exemple

Cet exemple ajoute un rectangle à la composition active et définit la variante 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 intVariant As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient variant of rect1. 
 intVariant = .Item("rect1").Fill.GradientVariant 
 ' 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:=msoGradientHorizontal, _ 
 Variant:=intVariant, 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.