Méthode Application.OpenThemeFile (PowerPoint)

Ouvre le fichier de thème spécifié (*thmx).

Syntaxe

expression. OpenThemeFile(themeFileName)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
themeFileName	Requis	String	Chemin du fichier de thème (*.thmx) à ouvrir.
themeFileName	Requis	String

Valeur renvoyée

Theme

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 première diapositive de 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.Slides(1).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.