Excel自定义Ribbon中如何指定ToggleButton的强制选中/未选中状态？

核心结论 #

必须通过控件的ID来定位并更新状态，keytip仅作为快捷键提示，无法用于Ribbon控件的定位操作。

实现步骤 #

1. 定义全局状态变量与Ribbon引用
   在VBA标准模块中添加全局变量，用于存储每个ToggleButton的状态和Ribbon对象引用：

   ' 全局模块中声明
   Public g_Ribbon As IRibbonUI
   Public g_TB1_Enabled As Boolean ' 对应ID为TB1的ToggleButton状态
   

2. 绑定Ribbon加载事件
   修改Ribbon XML，添加onLoad事件以保存Ribbon对象引用：

   <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Ribbon_Load">
     <!-- 你的其他自定义控件 -->
     <toggleButton id="TB1" keytip="TBa" onAction="OnTB1Click" getPressed="Option_Enabled"/>
   </customUI>
   

   对应的VBA加载宏：

   Sub Ribbon_Load(ribbon As IRibbonUI)
       Set g_Ribbon = ribbon
       ' 初始化TB1默认状态（根据需求调整）
       g_TB1_Enabled = True
   End Sub
   

3. 修改状态获取宏Option_Enabled
   根据控件ID返回对应的状态变量，实现动态状态读取：

   Sub Option_Enabled(control As IRibbonControl, ByRef returnedVal)
       Select Case control.ID
           Case "TB1"
               returnedVal = g_TB1_Enabled
           ' 其他ToggleButton可在此添加Case分支
           ' Case "TB2"
           '     returnedVal = g_TB2_Enabled
       End Select
   End Sub
   

4. 在「全选/全不选」宏中同步状态
   更新状态变量后，调用InvalidateControl强制刷新指定控件：

   • 全选宏示例：

     Sub SelectAll()
         ' 执行你的日历全选显示逻辑（原有代码）
         
         ' 更新TB1状态变量
         g_TB1_Enabled = True
         ' 强制刷新TB1控件状态
         g_Ribbon.InvalidateControl "TB1"
         
         ' 其他ToggleButton同理更新
     End Sub
     

   • 全不选宏示例：

     Sub DeselectAll()
         ' 执行你的日历全不选隐藏逻辑（原有代码）
         
         g_TB1_Enabled = False
         g_Ribbon.InvalidateControl "TB1"
         
         ' 其他ToggleButton同理更新
     End Sub
     

5. 同步单个点击事件的状态
   修改OnTB1Click宏，确保点击时同步更新状态变量：

   Sub OnTB1Click(control As IRibbonControl, pressed As Boolean)
       ' 执行你的日历显示/隐藏逻辑（原有代码）
       
       ' 更新状态变量
       g_TB1_Enabled = pressed
   End Sub
   

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