Excel Ribbon ToggleButton(Shrink to fit)状态不刷新，如何同步活动单元格状态？

你需要实现一个Excel自定义Ribbon开关按钮，用于切换单元格的「Shrink to fit」功能，但当前按钮无法正确同步活动单元格的状态。以下是修正后的完整实现方案：

一、自定义Ribbon XML代码 #

修改getPressed的回调函数名称，确保与VBA代码中的函数对应：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="LoadRibbon">
  <ribbon>
    <tabs>
      <tab id="Tabv3.1" label="TOOLS" insertAfterMso="TabHome">                  
        <group id="Group6" label="Alignment">
          <toggleButton id="ToggleButton1" 
                        label="Shrink to fit" 
                        imageMso="AsianLayoutCharacterScaling" 
                        size="large"
                        getPressed="GetToggleButtonPressed" 
                        onAction="ToggleButton1_OnAction"/>       
        </group>           
      </tab>
    </tabs>
  </ribbon>
</customUI>

二、标准模块代码 #

修正回调逻辑，增加异常处理，确保按钮状态准确同步：

Option Explicit
Public RibUI As IRibbonUI

Sub LoadRibbon(Ribbon As IRibbonUI)
    Set RibUI = Ribbon
    ' 初始化时刷新按钮状态
    If Not RibUI Is Nothing Then
        RibUI.InvalidateControl "ToggleButton1"
    End If
End Sub

' 获取ToggleButton的选中状态
Sub GetToggleButtonPressed( _
   ByRef control As IRibbonControl, _
   ByRef returnedVal)
    ' 处理非单元格选择的情况，避免报错
    If TypeName(Selection) = "Range" Then
        ' 若选中多个单元格，取第一个单元格的状态作为统一显示
        returnedVal = Selection.Cells(1).ShrinkToFit
    Else
        ' 非单元格选中时按钮置为未选中
        returnedVal = False
    End If
End Sub

' ToggleButton点击事件
Sub ToggleButton1_OnAction( _
   ByRef control As IRibbonControl, _
   ByRef pressed As Boolean)
    If TypeName(Selection) = "Range" Then
        Selection.ShrinkToFit = pressed
        ' 操作后立即刷新按钮状态
        If Not RibUI Is Nothing Then
            RibUI.InvalidateControl "ToggleButton1"
        End If
    End If
End Sub

三、ThisWorkbook代码 #

增加单元格选择变化的监听，确保切换单元格时按钮状态自动刷新：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' 工作表激活时刷新按钮
    If Not RibUI Is Nothing Then
        RibUI.InvalidateControl "ToggleButton1"
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' 单元格选择变化时刷新按钮
    If Not RibUI Is Nothing Then
        RibUI.InvalidateControl "ToggleButton1"
    End If
End Sub

关键改进点 #

• 替换了getPressed的回调函数，确保每次刷新都能正确获取当前选中单元格的「Shrink to fit」状态
• 新增Workbook_SheetSelectionChange事件，解决了切换单元格时按钮状态不更新的核心问题
• 增加了TypeName(Selection)判断，避免选中非单元格对象时出现运行时错误
• 在按钮点击操作后立即刷新状态，确保操作结果与按钮显示同步
• 增加RibUI的空值判断，防止未加载Ribbon时的报错

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