在vba中设置工作簿主题

有人知道我可以如何创build一个新的工作簿，并将工作簿主题=设置为当前工作簿，有没有办法做到这一点，类似于你如何设置颜色，即ActiveWorkbook.Colors = ThisWorkbook.colors（我相信你可以仍然在Excel 2007中这样做，所以这将是我的解决方法，但我宁愿设置整个主题）。 我需要创build一个工作簿，并设置工作簿主题，而不使用文件path，即没有保存在所有用户的PC上的主题。 这可能吗？

非常感谢任何能够帮助这个人的人！ 🙂

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