Énumération MsoThemeColorSchemeIndex (Office)

Indique le jeu de couleurs pour un thème Office.

Remarques

Office Theme.ThemeColorShceme comprend deux couleurs claires, deux couleurs foncées, six couleurs d’accentuation et deux couleurs pour le texte avec lien hypertexte. Utilisez cette énumération pour définir ou retourner les couleurs du thème spécifié. Lorsque des couleurs de thème sont affectées à l’objet ColorFormat pour une forme, elles sont mappées via l’énumération MsoThemeColorIndex. Pour PowerPoint, ce mappage prend en compte si l’objet est présent sur un style d’arrière-plan clair ou sombre pour la diapositive. Il y a douze styles d’arrière-plan, six clair et six sombres. Pour un style d’arrière-plan clair, un objet défini pour utiliser msoThemeColorBackground1 sera affecté à la couleur Sombre 1 du thème. Pour le même objet sur l’un des styles d’arrière-plan foncé, la couleur Clair 1 est utilisée pour la même affectation msoThemeColorBackground1.

Lors de l’affectation par programmation d’une couleur de thème à un objet, l’énumération MsoThemeColorIndex doit être utilisée, en particulier les valeurs 13 à 16 pour les quatre premières couleurs du thème. Si les valeurs 1 à 4 sont utilisées, l’interface utilisateur du sélecteur de couleurs Office ne met pas correctement en surbrillance la couleur du thème.

Exemple

L’exemple suivant génère les valeurs de couleur hexadécimale au format BGR pour les douze couleurs du thème du premier masque des diapositives de la présentation active, dans l’ordre dans lequel elles apparaissent dans l’interface utilisateur de l’éditeur de thème Office.

Sub ShowThemeColors()
    With ActivePresentation.Designs(1).SlideMaster.Theme
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight1).RGB)  ' 2
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark1).RGB)   ' 1
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight2).RGB)  ' 4
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark2).RGB)   ' 3
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent1).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent2).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent3).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent4).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent5).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeHyperlink).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent6).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeFollowedHyperlink).RGB)
    End With
End Sub

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.