Classe ColorScheme (PowerPoint VBA)

La classe ColorScheme représente un jeu de huit couleurs utilisées pour différents éléments d’une diapositive, d’une page de commentaires ou d’un document, tels que le titre ou l’arrière-plan. Il faut noter que les jeux de couleurs des diapositives, des pages de commentaires et des documents d’une présentation peuvent être définis indépendamment les uns des autres.

Set

Pour utiliser une variable de classe ColorScheme, elle doit d'abord être instanciée, par exemple

Dim cse as ColorScheme
Set cse = ActivePresentation.ColorSchemes(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ColorScheme : ColorSchemes.Item, ColorSchemes.Add, Master.ColorScheme, Slide.ColorScheme, SlideRange.ColorScheme et Presentation.ColorSchemes

Colors

Renvoie un objet RGBColor qui représente une couleur d’un jeu de couleurs.

Syntaxe : expression.Colors (SchemeColor)

SchemeColor: La couleur du jeu spécifié.

Dim rgbColors As RGBColor
Set rgbColors = ActivePresentation.ColorSchemes(1).Colors(SchemeColor:=ppAccent1)

Count

Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes(1).Count

Delete

Supprime l’objet ColorScheme spécifié.

ActivePresentation.ColorSchemes(1).Delete

Parent

Renvoie l’objet parent de l’objet spécifié.

ColorSchemes.Add

Cette méthode ajoute un jeu de couleurs à la collection des jeux disponibles. Renvoie un objet ColorScheme qui représente le jeu de couleurs ajouté.

Le nouveau jeu de couleurs repose sur les couleurs utilisées dans la diapositive ou le masque indiqué ou sur les couleurs d’un jeu de couleurs spécifié et provenant d’une présentation ouverte. La collection ColorSchemes peut contenir jusqu’à 16 jeux de couleurs. Si vous avez besoin d’ajouter un nouveau jeu de couleurs alors que la collection ColorSchemes est déjà complète, utilisez la méthode Delete pour supprimer un jeu existant. Notez que, bien que Microsoft PowerPoint vérifie automatiquement si un jeu de couleurs est un doublon lorsqu’un utilisateur tente de l’ajouter à l’aide de l’interface utilisateur, PowerPoint ne vérifie pas lorsque vous essayez d’ajouter un jeu de couleurs par programme. La procédure doit donc contrôler le jeu de couleurs afin de ne pas ajouter des jeux de couleurs redondants.

Syntaxe : expression.Add (Scheme)

Scheme: Le jeu de couleurs à ajouter. Il peut s’agir d’un objet ColorScheme d’une diapositive ou d’un masque quelconque ou bien d’un élément de la collection ColorSchemes provenant d’une présentation ouverte. Si cet argument est omis, c’est le premier objet ColorScheme (le premier jeu de couleurs standard) de la collection ColorSchemes de la présentation spécifiée qui est utilisé.

Dim cse As ColorScheme
Set cse = ActivePresentation.ColorSchemes.Add()

ColorSchemes.Count

Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes.Count

ColorSchemes.Item

Cette méthode renvoie un seul objet ColorScheme de la collection ColorSchemes spécifiée.

Syntaxe : expression.Item (Index)

Index: Numéro d’index de l’objet ColorScheme unique à renvoyer dans la collection.

Dim cse As ColorScheme
Set cse = ActivePresentation.ColorSchemes(Index:=1)

ColorSchemes.Parent

Renvoie l’objet parent de l’objet spécifié.