Klasse ThemeVariants (PowerPoint VBA)
Eine Auflistung von ThemeVariant -Objekten, die Variationen im Design darstellen.
Um eine ThemeVariants -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim tvs as ThemeVariants
Set tvs = Application.OpenThemeFile.ThemeVariants
Klassen Variablen vom Typ ThemeVariants können mit der Prozedur Theme.ThemeVariants festgelegt werden
Count
Gibt die Anzahl von Objekten in der angegebenen Auflistung zurück. Schreibgeschützt.
Dim lngCount As Long
lngCount = Application.OpenThemeFile.ThemeVariants.Count
Item
Gibt ein einzelnes ThemeVariant -Objekt aus der Auflistung zurück.
Item (Index)
Index: Die Indexnummer des einzelnen ThemeVariant -Objekts in der Auflistung, das zurückgegeben werden soll.
Dim tvt As ThemeVariant
Set tvt = Application.OpenThemeFile.ThemeVariants(Index:=1)