直接控制就行啊,比如判断
Dim tlb As RibbonMenu.ToggleButton = RibbonTabs("Other").Groups("Aggregate").Items("Aggregate")If tlb.Pressed = True Then
tlb.Pressed = False
End If