SlideRange.ApplyTemplate2-Methode (PowerPoint)
Wendet eine Entwurfsvorlage und eine Designvariante auf den Folienbereich an.
Syntax
Ausdruck. ApplyTemplate2
(FileName,Variant)
Ausdruck Eine Variable, die ein SlideRange-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 zweiten Variante im Design abgerufen und auf die Folien in der Präsentation angewendet.
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
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für