Objeto Theme (PowerPoint)
Representa un tema (una colección de colores, fuentes y efectos).
Ejemplo:
En el ejemplo de código siguiente se obtiene una referencia al tema actualmente activo y, a continuación, se recorre en iteración cada variación de tema del tema.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.