Classe ThemeVariant (PowerPoint VBA)

A classe ThemeVariant representa uma variação (conjunto de cores e fontes) em um tema.

Set

Para usar uma variável de classe ThemeVariant, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ThemeVariant: ThemeVariants.Item e Theme.ThemeVariants

Height

Retorna a altura da variação do tema. Somente leitura.

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

Id

Retorna uma cadeia de caracteres que representa a ID da variação do tema. Somente leitura.

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

Name

Retorna o nome da variação do tema. Somente leitura.

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

Parent

Retorna o pai do objeto especificado. Objetosomente leitura.

Width

Retorna a altura da variação do tema. Somente leitura.

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

ThemeVariants.Count

Retorna o número de objetos na coleção especificada. Somente leitura.

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

ThemeVariants.Item

Retorna um único objeto Theme da coleção.

Sintaxe : expression.Item (Index)

Index: O número de índice do único objeto ThemeVariant da coleção a ser retornado.

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

ThemeVariants.Parent

Retorna o pai do objeto especificado. Objetosomente leitura.