benutzerdef. Menus --> Untermenus anlegen
Peter
Ich arbeite des öftern mit benutzerdefinierten Menus. Nun möchte ich gerne auch mit Untermenus arbeiten können.
Wie kann ich beispielsweise die beiden Befehle Befehl1 und Befehl2 in meinem Beispiel in einem Menu "Spalten" mit den beiden Unterpunkten "Spalte 12" und "Spalte 05" zusammenfassen?
Danke für jeden Input.
Freundlicher Gruss, Peter
Const x2MenueName = "&Diverse"
Const x2MBefehl1 = " 1. &Spalte 12"
Const x2MBefehl2 = " 2. &Spalte 05"
Sub x2Menu_Erstellen()
Dim MB As Object, x2MeinMenu As Object, x2MBefehl As Object
Call x2Menu_Löschen
Set MB = CommandBars.ActiveMenuBar
Set x2MeinMenu = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
x2MeinMenu.Caption = x2MenueName
Set x2MBefehl = x2MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x2MBefehl
.Caption = x2MBefehl1
.OnAction = "x2MachWas1"
End With
Set x2MBefehl = x2MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x2MBefehl
.Caption = x2MBefehl2
.OnAction = "x2MachWas2"
End With
End Sub
Sub x2Menu_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(x2MenueName).Delete
End Sub
Private Sub x2MachWas1()
' MsgBox "Daten werden importiert", vbExclamation
Call spB12
'Application.StatusBar = ""
End Sub
Private Sub x2MachWas2()
Application.StatusBar = ""
Call spB05
'Application.StatusBar = ""
End Sub
Anzeige