AW: Linie in der Menubar
Manuel
Hi Nepumuk.
Danke für die schnelle antwort.
Allerdings kan ich des net so ganz einbauen.
Ich habe folgenden Code
Sub menu()
Set MBar = CommandBars.Add("Spieler", msoBarTop, True, True)
CommandBars("Spieler").Protection = msoBarNoCustomize
With MBar
.Protection = msoBarNoMove
.Visible = True
End With
MenuBars("Spieler").Menus.Add "&Spieler"
Set ml = MenuBars("Spieler").Menus("Spieler")
With ml
.MenuItems.AddMenu Caption:="&Rohstoffe"
With .MenuItems("Rohstoffe")
.MenuItems.Add Caption:="&Input", _
OnAction:="ressintput"
.MenuItems.Add Caption:="&Output", _
OnAction:="ressoutput"
End With
.MenuItems.Add Caption:="&Schließen", OnAction:="speichern" <----
End With
MenuBars("Spieler").Menus.Add "&Admin"
Set ml = MenuBars("Spieler").Menus("Admin")
With ml
.MenuItems.Add Caption:="&Rohstoffe output", _
OnAction:="ressoutput_admin"
.MenuItems.Add Caption:="&Schließen", _
OnAction:="speichern"
End With
MenuBars("Spieler").Menus.Add "&?"
Set ml = MenuBars("Spieler").Menus("?")
With ml
.MenuItems.Add Caption:="&Information", _
OnAction:="information"
End With
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFormulaBar = False
If (Sheets("User").Range("IV4") = "2") Then
Toolbars("Steuerelement-Toolbox").Visible = True
End If
End Sub
jetzt soll über dem Menü-Punkt "Schließen" (bei dem Pfeil) dieser Strich hin.
Ich habe nur KA wie das geht. Ihc habe auch schon, wie immer, in der hilfe vom Editor geschaut, aber das raffe ich net
Gruß
Manuel