Método Application.OpenThemeFile (PowerPoint)

Artigo
04/07/2023

Abre o arquivo de tema especificado (*thmx).

Sintaxe

expression. OpenThemeFile(themeFileName)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
themeFileName	Obrigatório	String	O caminho do arquivo de tema (*.thmx) a ser aberto.
themeFileName	Obrigatório	String

Valor de retorno

Theme

Exemplo

Este exemplo abre um arquivo de tema, obtém a ID da terceira variante no tema e aplica-a ao primeiro slide na apresentação.

Sub ChangeThemeVariant()

    Dim name As String
    Dim path As String
    Dim variantID As String
    
    ' Get the name of the active theme family.
    name = ActivePresentation.TemplateName

    ' You need access to the Theme Family in order to access the variants.
    path = "C:\Program Files (x86)\Microsoft Office\Document Themes 15\" & _
        ActivePresentation.TemplateName & ".thmx"

    ' Get the variant ID of the third Variant
    ' and apply that variant to the presentation.
    variantID = PowerPoint.Application.OpenThemeFile(path).ThemeVariants(3).Id
    ActivePresentation.Slides(1).ApplyTemplate2 path, variantID

End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via