Eigenes Menü erweitern
23.10.2004 11:49:24
Kopfeck
Ich hab mir ein eigenes menü erstellt das beim öffnen der
mappe geladen wird, jetzt möchte ich es erweitern, komme
aber nicht klar damit.
Ich möchte noch eine untermenü hinzufügen, mit einen Menüpunkt hinzufügen
komme ich klar aber einen zweiten untermenüpunkt schaffe ich nicht.
und noch ein kleines Problem habe ich mit dem Code, es soll Excel
ganz geschlossen werden, jetzt wird nur die Mappe geschloßen.
Const MenüName = "Mein_Menü"
Sub Neues_Menü()
Call Menü_zurücksetzen
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Set MB = CommandBars.Add(Name:=MenüName, MenuBar:=True)
Set M1 = MB.Controls.Add(Type:=msoControlPopup)
M1.Caption = "Beenden"
Set cmdButton = M1.Controls.Add
With cmdButton
.Caption = "Beenden mit speichern"
.OnAction = "befehl1"
.Style = msoButtonCaption
End With
CommandBars(MenüName).Visible = True
End Sub
Sub Menü_zurücksetzen()
On Error Resume Next
Application.CommandBars(MenüName).Delete
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Sub Befehl1()
ThisWorkbook.Close Saved = True
End Sub
bye Kopfeck