如何让Excel Ribbon ComboBox始终高亮选中项（附代码）

你的问题出在只通过getText回调设置了ComboBox显示的文本，但没有关联到下拉项的选中状态标记。要实现像字号框那样的持久高亮（Mac版的勾选标记），需要添加getSelectedItemID回调来指定选中的项ID，同时修正现有代码的错误。

步骤1：修改Ribbon XML #

给ComboBox添加getSelectedItemID属性，指定对应的回调函数：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="LoadRibbon">
    <ribbon>
        <tabs>
            <tab id="Tabv3.1" label="TOOLS" insertAfterMso="TabHome">                                              
                <group id="GroupDemo2" 
                label="SelectPapersize"
                imageMso="AddInManager">
                    <comboBox id="ComboBox001"
                    label="comboBox001"
                    getText="ComboBox001_GetText"
                    getSelectedItemID="ComboBox001_GetSelectedItemID" <!-- 新增此行 -->
                    onChange="ComboBox001_OnChange">
                        <item id="Item_A3"
                        label="A3"/>
                        <item id="Item_A4"
                        label="A4"/>
                        <item id="Item_A5"
                        label="A5"/>
                    </comboBox>
                </group>   
            </tab>
        </tabs>
    </ribbon>
</customUI>

步骤2：补充VBA回调函数 #

在RibbonCallbacks模块中添加getSelectedItemID的回调，从注册表读取保存的选中项ID：

'Callback for ComboBox001 getSelectedItemID
Sub ComboBox001_GetSelectedItemID(control As IRibbonControl, ByRef returnedVal)
    Dim comboVal As String
    comboVal = GetSetting(myApp, mySett, myVal, "")
    ' 返回对应的Item ID，比如选中A3就返回Item_A3
    If comboVal <> "" Then
        returnedVal = "Item_" & comboVal
    End If
End Sub

步骤3：修正Workbook_SheetActivate的错误 #

原代码中Select Case PaperSize的判断错误，PaperSize是枚举数值，不是字符串，修改如下：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim idx As String
    Select Case Sh.PageSetup.PaperSize
        Case xlPaperA3
            idx = "A3"
        Case xlPaperA4
            idx = "A4"
        Case xlPaperA5
            idx = "A5"
        Case Else
            idx = "" ' 处理其他纸张尺寸的情况
    End Select
    If idx <> "" Then
        SaveSetting myApp, mySett, myVal, idx
        RibUI.InvalidateControl "ComboBox001"
    End If
End Sub

步骤4：完善Workbook_Open事件 #

在Workbook_Open中初始化选中状态，确保打开工作簿时立即更新ComboBox：

Private Sub Workbook_Open()
    Dim idx As String
    Select Case ActiveSheet.PageSetup.PaperSize
        Case xlPaperA3
            idx = "A3"
        Case xlPaperA4
            idx = "A4"
        Case xlPaperA5
            idx = "A5"
        Case Else
            idx = GetSetting(myApp, mySett, myVal, "A4") ' 默认选中A4
    End Select
    SaveSetting myApp, mySett, myVal, idx
    If Not RibUI Is Nothing Then
        RibUI.InvalidateControl "ComboBox001"
    End If
End Sub

原理说明 #

• getSelectedItemID回调会告诉Ribbon哪个item是选中状态，从而显示对应的高亮/勾选标记
• 结合getText保证显示的文本正确，两者配合就能实现和字号框一样的持久选中表现
• 修正后的代码会在工作簿打开、切换工作表时，同步当前工作表的纸张尺寸到ComboBox的选中状态

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