Метод Application. Опенсемефиле (PowerPoint)Application.OpenThemeFile method (PowerPoint)

Открывает указанный файл темы (* THMX-).Opens the specified theme file (*thmx).

СинтаксисSyntax

выражение.expression. OpenThemeFile(Семефиленаме)OpenThemeFile(themeFileName)

выражение: переменная, представляющая объект Application.expression A variable that represents an Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
СемефиленамеthemeFileName ОбязательныйRequired StringString Путь к файлу темы (*. thmx-), который требуется открыть.The path of the theme file (*.thmx) to open.
СемефиленамеthemeFileName ОбязательныйRequired StringString

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

ThemeTheme

ПримерExample

В этом примере открывается файл темы, возвращается идентификатор третьего варианта Variant в теме и применяется к первому слайду в презентации.This example opens a theme file, gets the ID of the third variant in the theme, and applies it to the first slide in the presentation.

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 and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.