Table of contents
TOC
Recolher sumário
Expandir sumário

Método SlideRange.ApplyTemplate2 (PowerPoint)SlideRange.ApplyTemplate2 Method (PowerPoint)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Aplica uma variant de tema e modelo de design para o intervalo de slides.Applies a design template and theme variant to the slide range.

SintaxeSyntax

expressão. ApplyTemplate2(FileName,Variant)expression. ApplyTemplate2(FileName,Variant)

expressão Uma variável que representa um objeto SlideRange .expression A variable that represents a SlideRange object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData typeDescriçãoDescription
FileNameFileNameObrigatórioRequiredStringStringEspecifica o nome do modelo de design.Specifies the name of the design template.
VariantVariantObrigatórioRequiredStringStringEspecifica o nome da variante a ser aplicado.Specifies the name of the variant to apply.
FileNameFileNameObrigatórioRequiredCADEIA DE CARACTERESSTRING
VariantVariantObrigatórioRequiredCADEIA DE CARACTERESSTRING
VariantGUIDVariantGUIDObrigatórioRequiredCADEIA DE CARACTERESSTRING

Valor de retornoReturn value

VOIDVOID

ExemploExample

Este exemplo abre um arquivo de tema, obtém a identificação da segunda variante no tema e aplica a slides da apresentação.This example opens a theme file, gets the ID of the second variant in the theme, and applies it to the slides in the presentation.

Sub ChangeThemeVariant()

    Dim name As String
    Dim path As String
    Dim variantID As String
    Dim pptSlideRange As SlideRange

    ' 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 second Variant
    variantID = PowerPoint.Application.OpenThemeFile(path).ThemeVariants(2).Id

    ' Apply that variant to the range of slides.
    Set pptSlideRange = ActivePresentation.Slides.Range
    pptSlideRange.ApplyTemplate2 path, variantID

End Sub
© 2018 Microsoft