weiß jemand eine Möglichkeit, wie man, wenn mehrere Menüunterpunkte bestehen, diese nach erfolgter Prozedurausführung markiert erscheinen lassen kann? Z. B. ein Zeichen davor oder fette Schrift oder welche Möglichkeit es sonst geben könnte. Ich möchte also einen Menüpunkt, wenn dieser ausgewählt wurde, anschließend kenntlich gemacht haben, um dem User anzuzeigen, dass diese Routine bereits erledigt ist - damit nicht doppelt ausgeführt wird. Wer hat hier einen Tipp?
Danke und Gruß
Horst
Auszug
...
Set cmdButton = M2.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.Caption = "Objektverzeichnis bearbeiten"
.OnAction = "Objektbearbeitung"
.Style = msoButtonIconAndCaption
.FaceId = 23 '592
End With
Set cmdButton = M2.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.Caption = "Objektverzeichnis Veränderungen speichern"
.OnAction = "Objektbearbeitung_SpeichernBeenden"
.Style = msoButtonIconAndCaption
.FaceId = 1975
End With
Set cmdButton = M2.Controls.Add(Type:=msoControlButton, ID:=2)
With cmdButton
.Caption = "------------------------------------------------------"
.Style = msoButtonCaption
End With
Set cmdButton = M2.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.Caption = "Objektverwaltung"
.OnAction = "ObjektVorlagenBearbeiten"
.Style = msoButtonIconAndCaption
.FaceId = 296
End With
...