Workbook.Theme (Excel)

Retorna o tema aplicado à pasta de trabalho atual. Somente leitura.

Dim oteTheme As Office.OfficeTheme
Set oteTheme = ActiveWorkbook.Theme