Excel 2007 VBA ApplyTheme Addin

Question

Я пытаюсь установить тему рабочей книги, используя код VBA.

ActiveWorkbook.ApplyTheme ("C: \ Users \ Chris \ AppData \ Roaming \ Microsoft \ Templates \ Document Темы \ MyTheme.thmx")

Это работает, но я не знаю, как создать путь к папка «Темы документа», которая будет работать для всех пользователей?

Благодаря Chris

Answer 1

Вы можете получить папку данных приложения пользователя с помощью Environ функции:

Dim themeFolder As String 
themeFolder = Environ("APPDATA") & "Microsoft\Templates\Document Themes"