Kommentar in Makro für Menu
11.09.2003 09:33:00
paul
Frage:
Ich lasse über ein Makro ein Menü erzeugen.
Wie kann ich über VBA im Menü einen entsprechenden
Kommentar anzeigen lassen -soll zur Erläuterung der
Vorgehensweise des Makros für den Benutzer sein ?
Gruss
Paul
PS: So schau das Makro aus:
Sub Auto_open()
Set ML = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next ' Fehlerbehandlung
ML.FindControl(Tag:="Arbeit").Delete
Set ML = Application.CommandBars("Worksheet Menu Bar")
' Name für neues Menü wird gesetzt
Set U1 = ML.Controls.Add(Type:=msoControlPopup, Before:=10)
U1.Caption = "&Arbeit suchen"
U1.Tag = "Arbeit suchen" ' dient zur eindeutigen Identifizierung des Menüs
' 1. Menüpunkt wird angelegt
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Neue Arbeit !"
.OnAction = "Neue Arbeit"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
u.s.w.