以下の例では、例として標準ツールバーの[新規]ボタンを使用しています。

「Standard」は、別の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