Partager via

Propriété Application.ColorSchemes (Publisher)

  • Article

Renvoie une collection ColorSchemes qui représente les jeux de couleurs disponibles.

Syntaxe

expression. ColorSchemes

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

ColorSchemes

Exemple

L'exemple suivant effectue une boucle dans la collection ColorSchemes et affiche le nom de chaque jeu de couleurs et de la valeur RVB de la couleur des liens hypertexte dans chaque jeu.

Dim cscLoop As ColorScheme 
Dim cscAll As ColorSchemes 
 
Set cscAll = Application.ColorSchemes 
 
For Each cscLoop In cscAll 
 With cscLoop 
 Debug.Print "Color scheme: " & .Name _ 
 & " / Followed hyperlink color: " _ 
 & .Colors(ColorIndex:=pbSchemeColorFollowedHyperlink).RGB 
 End With 
Next cscLoop

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.