共用方式為

Presentation.ApplyTemplate2 方法 (PowerPoint)

  • 發行項

將設計範本和主題變體套用至簡報。

語法

expression。 ApplyTemplate2 (FileName，Variant)

表達 代表 Presentation 物件的變數。

參數

名稱 必要/選用 資料類型 描述
FileName 必要 String 會指定簡報設計範本的名稱。
Variant 必要 字串 指定要套用的變體名稱。
FileName 必要 字串
Variant 必要 字串
VariantGUID 必要 字串

傳回值

無效

範例

本範例會開啟主題檔案、取得主題中第三個變體的標識碼，並將它套用至簡報。

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 支援與意見反應。