The examples below uses the New-button on the Standard toolbar as an example.
You can replace "Standard" with the name or number of another CommandBar, and the number of the Control you want to edit. Use this macro to change the tooltip text:
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
The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.