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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de