在vba中設置工作簿主題

有沒有人知道我可以如何創建一個新的工作簿並將工作簿主題=設置爲當前工作簿，是否有辦法做到這一點，類似於您如何設置顏色，即ActiveWorkbook.Colors = ThisWorkbook.colors（我相信你仍然可以在Excel 2007中做到這一點，所以這將是我的解決方法，但我更願意設置整個主題）。我需要創建一個工作簿並設置工作簿主題，而不使用文件路徑，即沒有在所有用戶PC上保存主題。這可能嗎？在vba中設置工作簿主題

非常感謝任何能夠幫助這個人的人！ :-)

來源

2011-05-05 Alex Fisher

您無法設置工作簿的主題屬性，因爲它是隻讀屬性。我會做類似於複製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

來源

2011-07-24 13:48:02 Vikas

在vba中設置工作簿主題

回答

相關問題