Untermenu - ich bin doch blöd
31.01.2013 13:32:41
Markus
obwohl ich beim "googeln" mehre Themen zu meinem Problem gefunden habe,
schaffe ich es scheinbar nicht ein Untermenü zu programmieren.
Ich bin echt am Verzweifeln!
Hier mein Code, bei dem ich ein Untermenü einbauen möchte.
Für eine Hilfe wäre ich sehr dankbar.
Markus
**********************************************
Option Explicit
' Konstanten für Menü's
Const MenueName = "Menü vor dem Fragezeichen"
Const Befehl0 = "Aussscheider Erfassen"
Const Befehl1 = "Befehl Nr 1"
Const Befehl2 = "Menü - Punkt 2 (Untermenu)"
Function Menü_Erstellen()
Dim MB As Object, MeinMenü As Object, Befehl As Object
' Menue-Punkt ird nach MenuePunkt ? erstellt (letzter MenuBefehl)
Call Menü_Löschen ' Ruft das Menü löschen auf, danach Rückkehr
Set MB = CommandBars.ActiveMenuBar
Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = MenueName
' Die Menu-Punkte werden erstellt:
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl1
.OnAction = "spalteneinblenden"
.BeginGroup = False ' kein Trennstrich vor Menue
End With
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl2
.OnAction = "spalteneinblenden"
.BeginGroup = False ' kein Trennstrich vor Menue
End With
' Hier sollte ein Untermenü-Titel stehen, mit 2 Untermenues
End Function
Function Menü_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Function