Menüleiste
27.08.2003 16:55:53
Andrea
Vielen Dank im voraus, falls jemand hierfür eine Lösung hat.
Gruss
Andrea
Hier der VB-Code:
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Controls.Add _
Type:=msoControlPopup, Before:=10 '
Application.CommandBars("Worksheet Menu Bar").Controls(10).Caption = "Blattwechsel"
With ActiveMenuBar.Menus("Blattwechsel").MenuItems
.Add "EDV", "EDV"
.Add "Ertrag", "Ertrag"
.Add "Gesamtbudget", "Gesamtbudget"
End With
Application.CommandBars("Worksheet Menu Bar").Controls.Add _
Type:=msoControlPopup, Before:=11 '
Application.CommandBars("Worksheet Menu Bar").Controls(11).Caption = "Wechseln zu"
'fügt diverse Menüpunkte in die Bearbeitungszeile ein
With ActiveMenuBar.Menus("Wechseln zu").MenuItems
.Add "Anleitung", "Anleitung"
.Add "Erfolgsrechnung", "Erfolgsrechnung"
End With
Application.CommandBars("Worksheet Menu Bar").Controls.Add _
Type:=msoControlPopup, Before:=12 '
Application.CommandBars("Worksheet Menu Bar").Controls(12).Caption = "Drucken"
'fügt diverse Menüpunkte in die Bearbeitungszeile ein
With ActiveMenuBar.Menus("Drucken").MenuItems
.Add "Druckblatt", "Druckblatt"
End With
Sheets("Gesamtbudget").Select
Range("D11").Select
End Sub