|下面的示例以“标准”工具栏上的“新建”按钮为例。

您可以将“标准”替换为另一个CommandBar的名称或编号以及要编辑的控件的编号。使用此宏可以更改工具提示文本:

Sub ChangeToolTipsText()

Application.CommandBars("Standard").Controls(1).TooltipText = "Test"

End Sub

Use this macro to reset the tooltips text:

Sub ResetToolTipsText()

Application.CommandBars("Standard").Controls(1).TooltipText = ""

End Sub

Use this macro if you want to reset all custom settings for a Control::

Sub ResetAllControlSettings()

Application.CommandBars("Standard").Controls(1).Reset

End Sub