Excel Ribbon组合框：如何配置getSelectedItemIndex回调函数

1. 修复XML属性未声明错误 #

你遇到的"属性未声明"问题，根源是当前使用的Office 2009命名空间不支持getSelectedItemIndex回调。需将XML命名空间更新为Office 2010及后续版本支持的版本，同时添加该回调属性：

<customUI xmlns="http://schemas.microsoft.com/office/2010/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"
                    onChange="ComboBox001_OnChange"
                    getSelectedItemIndex="ComboBox001_GetSelectedItemIndex">
                        <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. 编写getSelectedItemIndex回调函数 #

在RibbonCallbacks模块中添加以下代码，根据保存的设置值返回对应选项的索引（索引从0开始）：

'Callback for ComboBox001 getSelectedItemIndex
Sub ComboBox001_GetSelectedItemIndex(control As IRibbonControl, ByRef returnedVal)
    Dim comboVal As String
    comboVal = GetSetting(myApp, mySett, myVal, "A4") '默认选中A4
    
    Select Case comboVal
        Case "A3"
            returnedVal = 0
        Case "A4"
            returnedVal = 1
        Case "A5"
            returnedVal = 2
    End Select
End Sub

3. 修正ThisWorkbook中的代码错误 #

原代码未指定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 = "A4"
    End Select
    SaveSetting myApp, mySett, myVal, idx
    RibUI.InvalidateControl "ComboBox001"
End Sub

4. 关键说明 #

• 确保Excel版本为2010或更高，否则新命名空间的属性无法生效。
• 每次修改设置或切换工作表时，通过RibUI.InvalidateControl刷新ComboBox，保证选中状态和显示文本同步。

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