本示例判断工具栏提示是否可用。

If Application.CommandBars.DisplayTooltips Then
    MsgBox "Tool tips is usable"
Else
    MsgBox "Tool tips is usable"
End If