Class ThemeVariants (PowerPoint VBA)

A collection of ThemeVariant objects that represent variations in the theme. To use a ThemeVariants class variable it first needs to be instantiated, for example

Dim tvs as ThemeVariants
Set tvs = Application.OpenThemeFile.ThemeVariants

Count

Returns the number of objects in the specified collection.

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

Item

Returns a single ThemeVariant object from the collection.

Item (Index)

Index: The index number of the single ThemeVariant object in the collection to be returned.

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