Método Presentation.ApplyTemplate2 (PowerPoint)

Artigo
10/25/2024

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

Sintaxe

expression. ApplyTemplate2 (FileName,Variant)

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

Parâmetros

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

Valor de retorno

VAZIO

Exemplo

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

Compartilhar via