Méthode GradientStops.Delete (Office)

Cette méthode supprime un point de dégradé.

Syntaxe

expression. Supprimer (index)

expression Une expression qui renvoie un objet GradientStops .

Paramètres

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 ajoute trois points de dégradés de couleurs puis supprime le premier.

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 
 GradientShapeFill.GradientStops.Delete (1) 
End Sub

Voir aussi

• Membres de l’objet GradientStops

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.