Slide.ApplyTemplate2-Methode (PowerPoint)

Artikel
04/07/2023

Wendet eine Entwurfsvorlage und eine Designvariante auf die Folie an.

Syntax

Ausdruck. ApplyTemplate2 (FileName,Variant)

Ausdruck Eine Variable, die ein Slide-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FileName	Erforderlich	String	Gibt den Namen der Entwurfsvorlage an.
Variant	Erforderlich	String	Gibt den Namen der anzuwendenden Variante an.
FileName	Erforderlich	String
Variant	Erforderlich	String
VariantGUID	Erforderlich	String

Rückgabewert

LEERE

Beispiel

In diesem Beispiel wird eine Designdatei geöffnet, die ID der dritten Variante im Design abgerufen und auf die erste Folie in der Präsentation angewendet.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über