Question

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

非常感谢能帮助这个人的任何人！： - ）

Answer 1

您无法设置工作簿的theme属性，因为它是只读属性。我会做以下的事情来复制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

在vba中设置工作簿主题

1 个答案: