0160-93 82 19 37 | Nehmen Sie 
Vorhandenes Menü erweitern
300020
Mit diesem Programm kann das Menü "Extras" um einen neuen Menüpunkt erweitert werden:
Const MenüEintrag = "eigens Menü"
Sub Menü_erweitern()
Call Menüeintrag_löschen
Set CB = Application.CommandBars.ActiveMenuBar
Set CBC = CB.Controls("Extras")
Set CBCC = CBC.Controls.Add
With CBCC
.Caption = MenüEintrag
.OnAction = "MachWas"
.FaceId = 59
End With
End Sub
Sub Menüeintrag_löschen()
On Error Resume Next
Application.CommandBars.ActiveMenuBar. _
Controls("Extras").Controls(MenüEintrag).Delete
End Sub
Sub MachWas()
MsgBox "Das Menü wurde erstellt!"
End Sub
