Workbook.Theme (Excel)

Gibt das auf die aktuelle Arbeitsmappe angewendete Design zurück.

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