Метод Presentation.ApplyTemplate2 (PowerPoint)

Применяет шаблон оформления и вариант темы к презентации.

Синтаксис

выражение. ApplyTemplate2(FileName,Variant)

Выражение Переменная, представляющая объект Presentation .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FileName	Обязательный	String	Указывает имя шаблона конструктора.
Variant	Обязательный	String	Указывает имя применяемого варианта.
FileName	Обязательный	String
Variant	Обязательный	String
VariantGUID	Обязательный	String

Возвращаемое значение

VOID

Пример

В этом примере открывается файл темы, возвращается идентификатор третьего варианта темы и применяется к презентации.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.