excel - 在 vba 中设置工作簿主题

Question

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

非常感谢任何可以提供帮助的人! :-)

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