Método Presentation.ApplyTemplate2 (PowerPoint)

Aplica una plantilla de diseño y una variante de tema a la presentación.

Sintaxis

expresión. ApplyTemplate2 (FileName,Variant)

expresión Variable que representa un objeto Presentation .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Especifica el nombre de la plantilla de diseño.
Variant	Obligatorio	String	Especifica el nombre de la variante que se va a aplicar.
FileName	Necesario	String
Variant	Obligatorio	String
VariantGUID	Obligatorio	String

Valor devuelto

VACÍO

Ejemplo

En este ejemplo se abre un archivo de tema, se obtiene el identificador de la tercera variante del tema y se aplica a la presentación.

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

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.