Méthode GradientStops.Insert (Office)

  • Article

Cette méthode ajoute un point à un dégradé.

Syntaxe

expression. Insertion (RVB, Position, Transparence, Index)

Expression Expression qui renvoie un objet GradientStops .

Parameters

Nom Requis/Facultatif Type de données Description
RGB Requis MsoThemeColorSchemeIndex Indique la couleur au niveau du point de dégradé.
Position Obligatoire Unique Indique la position du point dans le dégradé sous forme de pourcentage.
Transparency Facultatif Unique Indique l'opacité de la couleur au point de dégradé.
Index Facultatif Long Numéro d'index du point.

Remarques

Les dégradés représentent une transition en douceur à partir d'un état de couleur à une autre. Les points de terminaison de ces sections s'appellent des points.

Exemple

L’exemple suivant crée trois points de dégradés de couleurs dans Microsoft PowerPoint.

Sub gradients() 
 Set myDocument = ActivePresentation.Slides(1) 
 Set GradientShapeFill = myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill 
 With GradientShapeFill 
 .ForeColor.RGB = RGB(0, 128, 128) 
 .OneColorGradient msoGradientHorizontal, 1, 1 
 .GradientStops.Insert RGB(255, 0, 0), 0.25 
 .GradientStops.Insert RGB(0, 255, 0), 0.5 
 .GradientStops.Insert RGB(0, 0, 255), 0.75 
 End With 
End Sub

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.