habe hier eine super Prozedur gefunden um ein eigenes Menü zu erstellen. das einzigste problem ist, dass sich keine Symbole (FaceIDs) anzeigen lassen...
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
.FaceId = 23
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
Application.CommandBars("Worksheet Menu Bar").Enabled = True
On Error GoTo 0
End Sub
Es wird einfach nur das Menü ohne das Bildchen bei erster Menüpunkt angezeigt. Weiss jemand Rat.
Gruß Micha