Méthode Presentation.ApplyTemplate2 (PowerPoint)

Applique un modèle de conception et une variante de thème à la présentation.

Syntaxe

expression. ApplyTemplate2 (FileName,Variant)

expression Variable qui représente un objet Presentation .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FileName	Obligatoire	String	Spécifie le nom du modèle de conception.
Variant	Obligatoire	String	Spécifie le nom de la variante à appliquer.
FileName	Obligatoire	String
Variant	Obligatoire	String
VariantGUID	Requis	String

Valeur renvoyée

VIDE

Exemple

Cet exemple montre comment ouvrir un fichier de thème, obtenir l’ID de la troisième variante du thème et l’appliquer à la présentation.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.