Workbook.ApplyTheme (Excel)

Aplica o tema especificado à pasta de trabalho atual.

ApplyTheme (Filename)

Filename: Nome do tema.

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