I'm building a custom right click using VBA for Word. I am not able to make the TooltipText appear. Is there anything I am missing in the code below?:
Set myCommandBar= CommandBars.Add ("name1",_ msoBarPopup, False, True)
If myCommandBar.Fi ndControl(, , "tag1", True) Is Nothing Then
Set CommandBarPopup 1= myCommandBar.Co ntrols.Add_(mso ControlPopup, , , 5, Temporary:=True )
With CommandBarPopup 1
.BeginGroup = True
.Caption = "Caption text"
.Tag = "tag1"
End With
Set button1=Command BarPopup.Contro ls.Add_(msoCont rolBu tton, , , , False)
With button1
.Caption = "Click here"
.BeginGroup = True
.TooltipText = "Tool tip text"
.FaceId = 126
End With
Set myCommandBar= CommandBars.Add ("name1",_ msoBarPopup, False, True)
If myCommandBar.Fi ndControl(, , "tag1", True) Is Nothing Then
Set CommandBarPopup 1= myCommandBar.Co ntrols.Add_(mso ControlPopup, , , 5, Temporary:=True )
With CommandBarPopup 1
.BeginGroup = True
.Caption = "Caption text"
.Tag = "tag1"
End With
Set button1=Command BarPopup.Contro ls.Add_(msoCont rolBu tton, , , , False)
With button1
.Caption = "Click here"
.BeginGroup = True
.TooltipText = "Tool tip text"
.FaceId = 126
End With
Comment