How to assign ToolTip for button on tool bar?

[avkokin]

Hello.
I placed button of my macro on the tool bar. When I bring mouse cursor
to this button I get ToolTip with the name of my macro. But I can't
assign own ToolTip and own icon for this button. Is it possible and
how?
Thank you very much.

 

[Jonathan West]

Hello.
I placed button of my macro on the tool bar. When I bring mouse cursor
to this button I get ToolTip with the name of my macro. But I can't
assign own ToolTip and own icon for this button. Is it possible and
how?
Thank you very much.

You can't do this through the user interface. You can only do this using
VBA. Assign the string you want to the button's ToolTipText property.

 

[avkokin]

Hello Jonathan.
I should be glad to assign my own text for ToolTip but I unknow how.
That is my code for button on toolbar on left position:

Option Explicit

Dim cb As CommandBar
Dim mBtn As CommandBarButton
Dim cBtn As CommandBarButton
Dim i As Long
Dim rf As RecentFile

Sub buttonMenu()
On Error Resume Next

Set cb = CommandBars.Add("btnPopup", msoBarPopup)


For Each rf In Application.RecentFiles
If Len(Dir(rf.Path & "\" & rf.Name)) = 0 Then
Application.RecentFiles(rf.Index).Delete
End If
Next rf


For i = 1 To Application.RecentFiles.Count

Set mBtn = cb.Controls.Add(msoControlButton)
With mBtn
.Caption = Application.RecentFiles(i)
.Tag = Application.RecentFiles(i).Path & "\" &
Application.RecentFiles(i).Name
.OnAction = "openRF"
End With
Next i
With CommandBars.ActionControl
cb.ShowPopup .Left + 25, .Top + .Height - 24
End With
Set cb = Nothing
Set mBtn = Nothing
End Sub

Sub openRF()
Documents.Open CommandBars.ActionControl.Tag
End Sub

 

[Jonathan West]

Hello Jonathan.
I should be glad to assign my own text for ToolTip but I unknow how.
That is my code for button on toolbar on left position:

I've added a line of code below that applies the name of the recent file to
the tooltip of the appropriate button. You can of course have the tooltip
contain something else if you prefer.


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Option Explicit

Dim cb As CommandBar
Dim mBtn As CommandBarButton
Dim cBtn As CommandBarButton
Dim i As Long
Dim rf As RecentFile

Sub buttonMenu()
On Error Resume Next

Set cb = CommandBars.Add("btnPopup", msoBarPopup)


For Each rf In Application.RecentFiles
If Len(Dir(rf.Path & "\" & rf.Name)) = 0 Then
Application.RecentFiles(rf.Index).Delete
End If
Next rf


For i = 1 To Application.RecentFiles.Count

Set mBtn = cb.Controls.Add(msoControlButton)
With mBtn
.Caption = Application.RecentFiles(i)
.Tag = Application.RecentFiles(i).Path & "\" &
Application.RecentFiles(i).Name
.OnAction = "openRF"

.TooltipText = Application.RecentFiles(i).Name

 

[avkokin]

Jonathan, sorry but it not work. I need to assign ToolTip not for
items menu (anyway it not work too), and for the button of my macro.
Please see the screenshot (http://www.box.net/shared/uyipaeyz3d).
There showed ToolTip with name of the macro (buttonMenu). For this
button I need to assign the ToolTip.
But how do it for my code (above)?
Thank's.

 

[Jonathan West]

Jonathan, sorry but it not work. I need to assign ToolTip not for
items menu (anyway it not work too), and for the button of my macro.
Please see the screenshot (http://www.box.net/shared/uyipaeyz3d).
There showed ToolTip with name of the macro (buttonMenu). For this
button I need to assign the ToolTip.
But how do it for my code (above)?
Thank's.

How do you identify that button? For instance, what is the name of the
toolbar it is on?

 

[avkokin]

Dear Jonathan. I found the plase whither I should insert the property
"ToolTip":

With CommandBars.ActionControl
cb.ShowPopup .Left + 25, .Top + .Height - 24
.ToolTip Text = "My own name of the button" ' !!! HERE !!!
End With

Thank you. I am sorry to trouble you.
Sincerely, Anton.

 

[avkokin]

But assign the icon for this button I can't. It not have such
property....