В приведенных ниже примерах в качестве примера используется кнопка «Создать» на стандартной панели инструментов.

Вы можете заменить «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