Keyboard shortcut hover help

  • Thread starter Thread starter Top Spin
  • Start date Start date
T

Top Spin

Is there any way to get Word (2000) to display any keybard shortcuts
that may be assigned to toolbar icons when I hover the mouse pointer
over the icon?

Thanks
 
Tools | Customize | Options: Show shortcut keys in ScreenTips.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
Tools | Customize | Options: Show shortcut keys in ScreenTips.

Thanks. That does it for the standard icons. But it doesn't seem to
work on the personalized toolbar I created to hold several macros I
wrote, some of which I assigned to keyboard shortcuts. Can I get those
shortcuts to be displayed, too?
 
The only way to modify a ScreenTip for a toolbar command is to use a
little VBA. Since it isn't very intuitive, here's a macro that will
help you out:

Sub ChangeToolTip()
'Macro created by Beth Melton
'Nov 1, 2001
On Error Resume Next
Dim strbar As String
Dim bytNum As Byte
Dim strText As String
Dim strDText As String
Dim Choice As String

strDText = "Standard"

Do
strbar = InputBox("Type the name of the toolbar", , strDText)
strDText = strbar
bytNum = InputBox("Control Number: Starting with 1 " _
& "from the left of the Toolbar")
strText = InputBox("Type your ToolTip Text")
CommandBars(strbar).Controls(bytNum).TooltipText = strText

Choice = MsgBox("Do you want to add another ToolTip?", _
vbYesNo + vbQuestion)
Loop Until Choice = vbNo

End Sub

--
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/
 
The only way to modify a ScreenTip for a toolbar command is to use a
little VBA. Since it isn't very intuitive, here's a macro that will
help you out:

Sub ChangeToolTip()
'Macro created by Beth Melton
'Nov 1, 2001
On Error Resume Next
Dim strbar As String
Dim bytNum As Byte
Dim strText As String
Dim strDText As String
Dim Choice As String

strDText = "Standard"

Do
strbar = InputBox("Type the name of the toolbar", , strDText)
strDText = strbar
bytNum = InputBox("Control Number: Starting with 1 " _
& "from the left of the Toolbar")
strText = InputBox("Type your ToolTip Text")
CommandBars(strbar).Controls(bytNum).TooltipText = strText

Choice = MsgBox("Do you want to add another ToolTip?", _
vbYesNo + vbQuestion)
Loop Until Choice = vbNo

End Sub

Excellent. I will play with that. Thanks.
 
Back
Top