Classe ColorSchemes (PowerPoint VBA)

Collection de tous les objets ColorScheme de la présentation spécifiée. Chaque objet ColorScheme représente un jeu de couleurs, c’est-à-dire un ensemble de couleurs utilisées dans une diapositive.

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

Dim css as ColorSchemes
Set css = ActivePresentation.ColorSchemes

Les variables du type ColorSchemes peuvent être définies à l'aide de la procédure Presentation.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.

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()

Count

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

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes.Count

Item

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

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)