Propriété FillFormat.GradientDegree (Publisher)

Renvoie un seul indiquant comment sombre ou clair un un remplissage en dégradé monochrome. La valeur 0 (zéro) signifie que le noir est mélangé avec la couleur de premier plan de la forme pour former le dégradé ; une valeur égale à 1 signifie que le blanc est mélangée ; et des valeurs comprises entre 0 et 1 signifient qu'une nuance plus sombre ou plus claire de la couleur de premier plan est mélangée. En lecture seule.

Syntaxe

expression. GradientDegree

Expression Variable qui représente un objet FillFormat .

Valeur renvoyée

Unique

Remarques

Utilisez la méthode OneColorGradient pour définir le degré de dégradé du remplissage.

Exemple

Cet exemple ajoute un rectangle à la composition active et définit le degré du remplissage en fonction de celui de la forme intitulée Rectangle 2. Si Rectangle 2 ne possède pas de remplissage en dégradé unicolore, cet exemple produit une erreur.

Dim sngDegree As Single 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store degree of one-color gradient. 
 sngDegree = .Item("Rectangle 2").Fill.GradientDegree 
 ' Add new rectangle. 
 With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill 
 ' Set color and gradient for new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, Degree:=sngDegree 
 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.