Метод Application.OpenThemeFile (PowerPoint)

Статья
04/07/2023

Открывает указанный файл темы (*thmx).

Синтаксис

выражение. OpenThemeFile(themeFileName)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
themeFileName	Обязательный	String	Путь к открываемом файлу темы (*.thmx).
themeFileName	Обязательный	String

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

Theme

Пример

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

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

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

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

Поделиться через