Workbook.Theme (Excel)

Devuelve el tema aplicado al libro actual. Solo lectura.

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