TooltipText wird nicht angezeigt
28.12.2007 13:24:00
Wolfgang
den untenstehenden Code (auszugsweise) habe ich um TooltipText ergänzt (unter Recherche gefunden); Leider funktioniert das irgendwie nicht, gehe ich mit dem Mauszeiger in das jeweilige Menü, erscheint der Text nicht. Was müßte ich evtl. ändern? - Danke schon jetzt für die Rückantworten.
Gruß - Wolfgang
Private Sub auto_open()
Dim cmdBar As CommandBar
Dim cntMenu As CommandBarControl
Dim cntButton As CommandBarButton
Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
Set cntMenu = cmdBar.Controls.Add(msoControlPopup, Before:=cmdBar.Controls.Count)
cntMenu.Caption = "Features"
Set cntButton = cntMenu.Controls.Add
With cntButton
.Caption = "A n l e i t u n g"
.OnAction = "Anleitung"
.Style = msoButtonIconAndCaption
.FaceId = 1954
.TooltipText = "Hier eine Kurzanleitung."
.BeginGroup = True
End With
End Sub
Anzeige