Anzeige
Archiv - Navigation
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menü Icon erscheint nicht

Menü Icon erscheint nicht
19.11.2002 11:21:54
Michael
Hi Leute,

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menü Icon erscheint nicht
19.11.2002 12:45:57
Hajo_Zi
Hallo Michael

löse es doch so. Ich habe Deinen Code Drin gelassen.

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige