Changing Excel Color Theme? (Blue, Silver, Black)

[indi visual]

Is it possible via VBA to change the excel color theme?


From Blue to Silver or Black etc...

 

[indi visual]

I figured it out.


I hope this helps someone.

[pre]

Sub ChangeAppColorTheme()
Dim i_RegKey As String
Dim i_Value As String
Dim i_Type As String
Dim myWS As Object
Set myWS = CreateObject("WScript.Shell")
i_RegKey = "HKEY_CURRENT_USERSoftwareMicrosoftOffice" & Application.Version & "CommonTheme"
i_Value = 3    '''1 is blue, 2 is silver, and 3 is black (but the app must be restarted for reg change to take effect)
i_Type = "REG_DWORD"
myWS.RegWrite i_RegKey, i_Value, i_Type
End Sub

[/pre]

In fact, if anyone has a work around me having to restart the program for this change to take effect I would be much obliged.