Menü´s erstellen
05.02.2005 22:36:34
Ali
mit folgendem Auszug aus meinem Code habe ich mir eine Menüeleiste mit Untermenü`s
erstellt. Aktiviert wird sie über eine Befehlsschaltfläche.
Sub MenüErstellen()
Dim AktiveMenüLeiste As Object
Dim MeinMenü As Object, Befehl As Object, MB As Object
On Error Resume Next
Application.CommandBars("MeinMenü").Delete
CommandBars.ActiveMenuBar.Controls("Mein Menü").Delete
Set MB = CommandBars.Add(Name:="MeinMenü", MenuBar:=True)
CommandBars("MeinMenü").Visible = True
Set AktiveMenüLeiste = CommandBars.ActiveMenuBar
Set MeinMenü = _
AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = "&ErstVersuch"
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Test"
.OnAction = "Start_Test"
End With
End Sub
Nun würde ich aber gerne noch drei weitere Menü´s mit Untermenü´s generieren. Ab hier
setzt es dann bei mir aus. wer kann mir weiterhelfen, diese in den bisherigen Code
einzubinden?
Danke schon jetzt für eure Unterstützung
Gruß
Ali