0
'Code in the Workbook class
Public WithEvents Bars As CommandBars

Public Sub Workbook_Open()
    Set Bars = Application.CommandBars
End Sub

Private Sub Bars_OnUpdate()
    'Try to determine which CommandBar Control has been triggered
    On Error Resume Next
    MsgBox Bars.ActionControl.TooltipText
    If Err.Number Then MsgBox Err.Number & " " & Err.Description
End Sub
4

0 回答 0