如何修改Excel CommandBar弹出菜单的字体与背景颜色

架构老林

2026-10-3

问题根因

该问题是Office 2019/365及后续版本适配系统深色主题时的遗留Bug：CommandBar是Office早年推出的遗留控件，未适配新的主题渲染逻辑，首次调用时无法正确加载主题色配置，才会出现初始状态白字白背景、只有鼠标悬停触发重绘后才能正常显示的问题。该控件本身确实未暴露背景、字体颜色的直接配置属性，无法通过常规属性修改调整样式。

可行解决方案

方案1：使用预渲染逻辑修复现有代码

在菜单创建完成后，先在屏幕外不可见的坐标临时弹出一次菜单，强制触发渲染逻辑，用户实际调用时就会正常显示。修改后的完整代码如下：

Public Sub Custom_PopUpMenu_1()
    Dim MenuItem As CommandBar
    ' 注意原代码中的menuName变量需要提前定义赋值，此处补充定义避免报错
    Const menuName As String = "MyCustomPopUp"
    
    ' 先判断同名菜单是否已存在，避免重复创建报错
    On Error Resume Next
    Application.CommandBars(menuName).Delete
    On Error GoTo 0

    Set MenuItem = Application.CommandBars.Add(Name:=menuName, Position:=msoBarPopup, _
                                               MenuBar:=False, Temporary:=True)

    With MenuItem
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "tbox_Copy"
            .Caption = "&Copy"
        End With
    
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "tbox_Paste"
            .Caption = "&Paste"
        End With
    
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "tbox_Cut"
            .Caption = "Cu&t"
        End With
    
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "tbox_Select"
            .Caption = "&Select"
        End With
    
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "tBox_clear"
            .Caption = "C&lear"
        End With
    End With
    
    ' 新增预渲染逻辑：在屏幕外坐标弹出菜单，用户无感知，强制完成渲染初始化
    MenuItem.ShowPopup 10000, 10000
End Sub

方案2：给控件绑定内置FaceId触发重绘

如果预渲染方案不生效，可以给每个msoControlButton设置内置图标ID，加载内置图标的过程会强制触发控件渲染初始化，也能解决颜色异常问题，示例配置如下：

With .Controls.Add(Type:=msoControlButton)
    .OnAction = "'" & ThisWorkbook.Name & "'!" & "tbox_Copy"
    .Caption = "&Copy"
    .FaceId = 19 ' 对应内置复制图标
End With

常用功能对应的FaceId：

复制：19
粘贴：22
剪切：21
清除：182

方案3：替换为现代控件（推荐长期使用）

CommandBar已被微软标记为废弃控件，不再维护，建议替换为Fluent UI自定义上下文菜单（通过Ribbon XML配置），原生适配Office所有主题，无渲染异常，也支持自定义样式。如果需要完全自定义背景、字体颜色，可以用VBA用户窗体（UserForm）模拟右键菜单，可自由配置所有样式参数。

内容的提问来源于stack exchange，提问作者Chris