excel vba 里 togglebutton 如何设置多个按钮按下一个其他全部弹起？

你好，

请参考以下代码（XML 部分不作变动）：

Option Explicit

Dim moRibbon As IRibbonUI
Dim strCurrentReport As String

Sub rxcustomUI_onLoad(ByVal Ribbon As IRibbonUI)
    Set moRibbon = Ribbon
    strCurrentReport = ActiveSheet.Name
End Sub

Sub button_onAction(ByVal Control As IRibbonControl, Pressed As Boolean)
    strCurrentReport = Control.Id
    Worksheets(strCurrentReport).Activate
    moRibbon.Invalidate
End Sub

Sub button_getPressed(ByVal Control As IRibbonControl, ByRef ReturnedVal)
    ReturnedVal = (strCurrentReport = Control.Id)
End Sub

运行效果：