PowerPoint自定义Ribbon切换按钮getPressed未同步形状初始属性如何解决？

核心问题原因 #

• 原代码点击回调逻辑顺序错误：先读取切换前的属性赋值给状态变量，再执行属性切换，导致存储的状态和实际属性永远相反
• 状态未与选中形状的真实属性绑定：存储在全局变量的状态不会跟随选中对象变化自动更新
• 未主动触发Ribbon状态刷新：Ribbon的get类回调不会自动执行，需要手动调用刷新接口触发状态同步

修复后代码 #

1. 标准模块代码（替换你原来的代码即可） #

Option Explicit
Public myRibbon As IRibbonUI
Public ribbonEvent As clsRibbonEvents

' Ribbon加载时的回调，保存Ribbon实例、初始化事件监听
Sub toggleAR(ribbon As IRibbonUI)
    Set myRibbon = ribbon
    ' 初始化选中变化事件监听
    Set ribbonEvent = New clsRibbonEvents
    Set ribbonEvent.app = Application
End Sub

' getPressed回调，实时返回当前选中形状的LockAspectRatio状态
Sub getPressedAR(control As IRibbonControl, ByRef returnedVal)
    On Error Resume Next ' 处理未选中形状、选中非形状对象的异常情况
    If control.Id = "AspectRatio" Then
        ' 直接读取当前选中形状的真实属性，不需要全局变量缓存
        returnedVal = (ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoTrue)
    End If
    On Error GoTo 0
End Sub

' 按钮点击回调
Sub AspectRatio(control As IRibbonControl, pressed As Boolean)
    On Error Resume Next
    If control.Id = "AspectRatio" Then
        With ActiveWindow.Selection.ShapeRange
            ' 直接切换属性
            .LockAspectRatio = Not (.LockAspectRatio = msoTrue)
        End With
        ' 点击后主动刷新对应按钮的状态，即时同步显示
        If Not myRibbon Is Nothing Then myRibbon.InvalidateControl "AspectRatio"
    End If
    On Error GoTo 0
End Sub

' 供选中变化事件调用的刷新方法
Sub RefreshRibbon()
    If Not myRibbon Is Nothing Then myRibbon.InvalidateControl "AspectRatio"
End Sub

2. 新增类模块监听选中变化（解决选中不同形状自动同步状态的问题） #

• 插入一个类模块，命名为clsRibbonEvents，写入以下代码：

Public WithEvents app As Application

' 选中变化时触发Ribbon刷新
Private Sub app_WindowSelectionChange(ByVal Sel As Selection)
    Call RefreshRibbon
End Sub

逻辑说明 #

• 取消了无意义的全局状态变量缓存，每次Ribbon请求状态时直接读取当前选中形状的真实属性，从根源避免状态不匹配
• 点击按钮切换属性后主动调用InvalidateControl刷新对应按钮的状态，即时同步显示
• 监听应用的选中变化事件，每次切换选中对象时自动刷新按钮状态，选中已锁定纵横比的形状时按钮会自动变成按下状态

注意事项 #

• 如果同时选中多个纵横比锁定状态不一致的形状，当前逻辑会默认返回第一个形状的状态，你可以根据需求调整getPressed里的逻辑处理多选场景
• 所有回调的名称要和你自定义Ribbon的XML里声明的属性值完全一致

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