Excel Ribbon组合框：多工作表纸张设置及激活同步显示问题

问题分析 #

你当前的Workbook_SheetActivate事件代码存在两处关键错误：

1. 未指定PaperSize的所属对象，导致代码无法识别当前工作表的纸张设置；
2. 使用字符串匹配枚举常量（如"xlPaperA3"），但xlPaperA3是Excel内置的数值型枚举，而非字符串。

修正后的代码 #

1. 更新ThisWorkbook中的事件代码

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
    ' 刷新组合框控件，更新显示
    If Not RibUI Is Nothing Then
        RibUI.InvalidateControl "ComboBox001"
    End If
End Sub

2. 优化组合框getText回调（可选，更精准）

原回调依赖注册表读取值，若用户手动修改纸张尺寸，注册表不会同步更新。建议直接读取当前激活工作表的纸张尺寸：

'Callback for ComboBox001 getText
Sub ComboBox001_getText(control As IRibbonControl, ByRef returnedVal)
    Dim currentPaperSize As XlPaperSize
    currentPaperSize = ActiveSheet.PageSetup.PaperSize
    
    Select Case currentPaperSize
        Case xlPaperA3
            returnedVal = "A3"
        Case xlPaperA4
            returnedVal = "A4"
        Case xlPaperA5
            returnedVal = "A5"
        Case Else
            returnedVal = "A4" ' 默认显示A4
    End Select
End Sub

关键修改说明 #

• 指定对象：用Sh.PageSetup.PaperSize明确获取当前激活工作表的纸张尺寸，Sh是事件参数传递的当前工作表对象；
• 枚举匹配：直接使用Excel内置的xlPaperA3/xlPaperA4/xlPaperA5枚举常量（对应数值8、9、11），而非字符串；
• 空值判断：增加If Not RibUI Is Nothing避免Ribbon未加载时的错误；
• 精准同步：优化后的getText直接读取当前工作表的实际设置，无需依赖注册表，确保显示内容与实际纸张尺寸完全一致。

额外提示 #

• 若保留注册表存储逻辑，需确保在用户手动修改纸张尺寸时也触发更新（可添加Workbook_SheetChange或监控PageSetup的事件）；
• 确保RibbonCallbacks模块中的RibUI、myApp等公共常量能被ThisWorkbook正常访问（已通过Public声明，无需额外设置）。

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