Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie, sous la forme d'un nombre entier de 1 à 4 pour la plupart des dégradés, la variante de dégradé du remplissage spécifié. Long (en lecture seule).
Syntaxe
expression. GradientVariant
Expression Variable qui représente un objet FillFormat .
Remarques
Si le style de dégradé correspond à la constante 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.
Utilisez la méthode OneColorGradient ou TwoColorGradient pour définir la variante de dégradé pour le remplissage.
Exemple
Cet exemple montre comment ajouter un rectangle dans le document actif, puis lui appliquer la variante de dégradé de remplissage de la forme nommée « rect1 ». Cet exemple peut fonctionner uniquement si un dégradé de remplissage a été appliqué à cette forme.
Dim lngGradient As Long
With ActiveDocument.Shapes
lngGradient = .Item("rect1").Fill.GradientVariant
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient msoGradientHorizontal, _
lngGradient, 1
End With
End With
Voir aussi
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.