PowerPoint) (主題物件
代表主題 (色彩、字型和效果) 的集合。
下列程式碼範例會取得目前使用中主題的參考,然後逐一查看主題中的每個主題變化。
Sub IterateThemeVariants()
Dim pptTheme As Theme
Dim pptThemeVariants As ThemeVariants
Dim pptThemeVariant As ThemeVariant
Dim path As String
' Get a reference to the currently active theme.
path = "C:\Program Files (x86)\Microsoft Office\Document Themes 15\" & _
ActivePresentation.TemplateName & ".thmx"
Set pptTheme = Application.OpenThemeFile(path)
' Get a reference to all of the variations in the theme.
Set pptThemeVariants = pptTheme.ThemeVariants
' Iterate over each variation of the theme and print
' its ID.
For Each pptThemeVariant In pptThemeVariants
Debug.Print "Variation id: " & pptThemeVariant.Id
Next pptThemeVariant
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。