Classe ThemeVariant (PowerPoint VBA)

La classe ThemeVariant représente une variante (jeu de couleurs et de polices) dans un thème.

Set

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

Dim tvt as ThemeVariant
Set tvt = Application.OpenThemeFile.ThemeVariants(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ThemeVariant : ThemeVariants.Item et Theme.ThemeVariants

Height

Renvoie la hauteur de la variante de thème. En lecture seule.

Dim lngHeight As Long
lngHeight = Application.OpenThemeFile.ThemeVariants(1).Height

Id

Renvoie une valeur de type String qui représente l’ID de la variante de thème. En lecture seule.

Dim strId As String
strId = Application.OpenThemeFile.ThemeVariants(1).Id

Name

Renvoie le nom de la variante de thème. En lecture seule.

Dim strName As String
strName = Application.OpenThemeFile.ThemeVariants(1).Name

Parent

Renvoie le parent de l'objet spécifié. Objeten lecture seule.

Width

Renvoie la hauteur de la variante de thème. En lecture seule.

Dim lngWidth As Long
lngWidth = Application.OpenThemeFile.ThemeVariants(1).Width

ThemeVariants.Count

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

Dim lngCount As Long
lngCount = Application.OpenThemeFile.ThemeVariants.Count

ThemeVariants.Item

Renvoie un seul objet ThemeVariant de la collection.

Syntaxe : expression.Item (Index)

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

Dim tvt As ThemeVariant
Set tvt = Application.OpenThemeFile.ThemeVariants(Index:=1)

ThemeVariants.Parent

Renvoie le parent de l'objet spécifié. Objeten lecture seule.