如何通过VBA读取Excel Office主题并适配用户窗体配色？

1. Run-time error '438' 的原因 #

ThisWorkbook.Theme 指的是工作簿的设计主题（比如Office自带的“行云流水”“沉稳典雅”这类用于单元格样式、图表的主题），和你要获取的「Office个性化设置里的Black/White/Dark Gray主题」完全是两个不同的概念。VBA编辑器能提示这个属性只是因为存在同名对象，但它并不支持返回你需要的Office界面主题值，所以调用时会触发438错误。

2. 通过VBA读取Excel Office主题的正确方法 #

Office的界面主题设置存放在注册表中，你需要通过读取注册表键值来获取：

• 注册表路径：HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\UI Theme
• 键名：Theme，对应的数值含义：
  • 0 = Colorful
  • 1 = Dark Gray
  • 2 = Black
  • 3 = White
  • 4 = Use system setting

如果主题设为「Use system setting」（值为4），还需要读取Windows系统的深色模式状态：

• 注册表路径：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize
• 键名：AppsUseLightTheme，0 = 系统深色模式启用，1 = 系统浅色模式启用

以下是读取这些值的VBA代码：

' 读取注册表DWORD值的通用函数
Function GetRegistryDWORD(ByVal regPath As String, ByVal regKey As String) As Long
    Dim ws As Object
    Set ws = CreateObject("WScript.Shell")
    On Error Resume Next
    GetRegistryDWORD = ws.RegRead(regPath & "\" & regKey)
    On Error GoTo 0
End Function

' 判断当前是否为深色模式（符合你的需求逻辑）
Function IsDarkModeActive() As Boolean
    Dim officeTheme As Long
    Dim systemLightTheme As Long
    
    ' 读取Office主题设置（16.0对应Office 2016/365，若为旧版本需修改版本号）
    officeTheme = GetRegistryDWORD("HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\UI Theme", "Theme")
    
    Select Case officeTheme
        Case 1, 2 ' Dark Gray、Black
            IsDarkModeActive = True
        Case 3 ' White
            IsDarkModeActive = False
        Case 0 ' Colorful
            IsDarkModeActive = False
        Case 4 ' Use system setting
            ' 读取系统深色模式状态
            systemLightTheme = GetRegistryDWORD("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize", "AppsUseLightTheme")
            IsDarkModeActive = (systemLightTheme = 0)
        Case Else
            ' 默认浅色模式
            IsDarkModeActive = False
    End Select
End Function

3. 实现UserForms自动配色的替代方案 #

基于上面的IsDarkModeActive函数，你可以在UserForm的初始化或激活事件中统一设置配色，还可以封装成通用子程序批量处理控件：

步骤1：通用配色子程序 #

' 为UserForm及其控件设置主题配色
Sub ApplyThemeToUserForm(ByVal uf As Object, ByVal isDark As Boolean)
    Dim ctrl As Object
    Dim bgColor As Long, fgColor As Long
    
    ' 定义深浅色模式的配色
    If isDark Then
        bgColor = RGB(32, 32, 32) ' 深色背景
        fgColor = RGB(255, 255, 255) ' 白色文字
    Else
        bgColor = RGB(255, 255, 255) ' 白色背景
        fgColor = RGB(0, 0, 0) ' 黑色文字
    End If
    
    ' 设置UserForm本身
    uf.BackColor = bgColor
    uf.ForeColor = fgColor
    
    ' 遍历所有控件，设置配色（支持嵌套控件如Frame）
    For Each ctrl In uf.Controls
        Select Case TypeName(ctrl)
            Case "Frame", "MultiPage"
                ' 递归处理嵌套控件
                ApplyThemeToUserForm ctrl, isDark
            Case "TextBox", "ComboBox", "ListBox", "CommandButton", "Label", "CheckBox", "OptionButton"
                ctrl.BackColor = bgColor
                ctrl.ForeColor = fgColor
                ' 特殊处理TextBox的边框（可选）
                If TypeName(ctrl) = "TextBox" Then
                    ctrl.BorderColor = IIf(isDark, RGB(64, 64, 64), RGB(192, 192, 192))
                End If
        End Select
    Next ctrl
End Sub

步骤2：在UserForm中调用 #

在UserForm的Initialize事件中添加代码：

Private Sub UserForm_Initialize()
    ApplyThemeToUserForm Me, IsDarkModeActive()
End Sub

额外优化 #

• 如果需要在主题切换后实时更新UserForm配色，可以添加一个按钮触发重新检测，或者在UserForm的Activate事件中调用ApplyThemeToUserForm（但注意频繁触发可能影响性能）。
• 对于Office版本不是16.0的情况，需要修改注册表路径中的版本号（比如Office 2013是15.0）。

内容的提问来源于stack exchange，提问作者G.D.