Remarque
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.
Cette méthode ajoute un point à un dégradé.
Syntaxe
expression. Insertion (RVB, Position, Transparence, Index)
expression Expression qui renvoie un objet GradientStops .
Paramètres
| 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.