Excel 2007 VBA ApplyTheme Addin

Question

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

ActiveWorkbook.ApplyTheme ("C: \ Users \ Chris \ AppData \ Roaming \ Microsoft \ Templates \ Document Themes \ MyTheme.thmx")

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

Спасибо, Крис

Answer 1

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

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