настройка тем книги в vba

Question

Кто-нибудь знает, как я могу создать новую рабочую книгу и установить тему рабочей книги = для текущей рабочей книги, есть ли способ сделать это, аналогично тому, как вы устанавливаете цвет, т.е. ActiveWorkbook.Colors = ThisWorkbook.colors (I Я полагаю, что вы все еще можете сделать это в Excel 2007, так что это будет мой обходной путь, но я бы предпочел установить всю тему). Мне нужно создать рабочую книгу и установить тему рабочей книги без использования пути к файлу, то есть без сохранения темы на всех пользовательских ПК. Возможно ли это?

Большое спасибо всем, кто может помочь с этим! : -)

Answer 1

Нет способа установить свойство темы книги, поскольку оно доступно только для чтения. Я хотел бы сделать что-то вроде следующего, чтобы скопировать colortheme:

Private Sub CopyTheme(baseBook As Workbook, targetBook As Workbook)
Dim themeName As String
themeName = Environ("temp") & "\VBANoobTheme.xml"

'save theme
On Error Resume Next
Kill themeName
Err.Clear
On Error GoTo 0
'delete extra sheets
baseBook.Theme.ThemeColorScheme.Save themeName
targetBook.Theme.ThemeColorScheme.Load themeName
End Sub