Объект Theme (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 и обратная связь.