Gruppe
Menue
Bereich
Bar
Thema
Eigene Menüleiste mit Untermenü's erstellen
Problem
Wie kann ich in XL8 eine eigene Menüleiste mit Untermenüs erstellen und diese anstelle der Tabellenblattmenüleiste anzeigen lassen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call MenuLoeschen
End Sub
StandardModule: basMain
Sub MenuErstellen()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars.Add( _
Name:="MyCommandBar", _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Menü1"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Erster Menüpunkt"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Zweiter Menüpunkt"
.Style = msoButtonCaption
End With
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Menü2"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Erster Menüpunkt"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Zweiter Menüpunkt"
.Style = msoButtonCaption
End With
CommandBars("MyCommandbar").Visible = True
End Sub
Sub MenuLoeschen()
On Error Resume Next
Application.CommandBars("MyCommandbar").Delete
On Error GoTo 0
End Sub