Class ThemeVariant (PowerPoint VBA)

The class ThemeVariant represents a variation (set of colors and fonts) in a theme. To use a ThemeVariant class variable it first needs to be instantiated, for example

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

Height

Returns the height of the theme variation.

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

Id

Returns a string that represents the ID of the theme variation.

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

Name

Returns the name of the theme variation.

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

Width

Returns the height of the theme variation.

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