Workbook.ApplyTheme (Excel)

Aplica el tema especificado al libro actual.

ApplyTheme (Filename)

Filename: Nombre del tema.

Dim strFilename As String: strFilename = 
ActiveWorkbook.ApplyTheme Filename:=strFilename