Método Presentation.ApplyTemplate2 (PowerPoint)

Aplica um modelo de design e uma variante de tema à apresentação.

Sintaxe

expression. ApplyTemplate2(FileName,Variant)

Expressão Uma variável que representa um objeto Presentation .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Obrigatório	String	Especifica o nome do modelo de design.
Variantes	Obrigatório	String	Especifica o nome da variante a ser aplicada.
FileName	Obrigatório	String
Variantes	Obrigatório	String
VariantGUID	Obrigatório	String

Valor de retorno

VAZIO

Exemplo

Este exemplo abre um arquivo de tema, obtém a ID da terceira variante no tema e aplica-a à 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.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.