Partager via

Objet ExtraColors (PowerPoint)

  • Article

Représente les couleurs supplémentaires d’une présentation. Cet objet peut contenir jusqu’à huit couleurs, chacune d’entre elles étant représentée par une valeur RVB (rouge-vert-bleu).

Exemple

Utilisez la propriété ExtraColorspour renvoyer l’objet ExtraColors . Utilisez ExtraColors (index), où index est le numéro d’index de couleur supplémentaire, pour renvoyer la valeur rouge-vert-bleu (RVB) pour une seule couleur supplémentaire. L’exemple suivant montre comment ajouter un rectangle à la diapositive 1 de la présentation active, et définir la première couleur supplémentaire comme couleur de remplissage du premier plan. Si vous n’avez pas défini au moins une couleur supplémentaire pour la présentation, cet exemple ne fonctionne pas.

With ActivePresentation
    Set rect = .Slides(1).Shapes _
        .AddShape(msoShapeRectangle, 50, 50, 100, 200)
    rect.Fill.ForeColor.RGB = .ExtraColors(1)
End With

Utilisez la méthode Addpour ajouter une couleur supplémentaire. L’exemple suivant montre comment ajouter une couleur supplémentaire à la présentation active, si ce n’est déjà fait.

ActivePresentation.ExtraColors.Add RGB(69, 32, 155)

Voir aussi

Référence du modèle objet PowerPoint

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.