Excel 2007 VBA ApplyTheme插件

Question

我想使用VBA代碼設置工作簿主題。

ActiveWorkbook.ApplyTheme（ 「C：\用戶\克里斯\應用程序數據\漫遊\微軟\模板\文檔主題\ MyTheme.thmx」）

這工作，但我不知道如何創建一個路徑「文檔主題」文件夾，這將爲所有用戶工作？

感謝 克里斯

Answer 1

您可以使用Environ功能得到用戶的應用程序數據文件夾：

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