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

Neues Menue; Position vor '?'

Forumthread: Neues Menue; Position vor '?'

Neues Menue; Position vor '?'
19.01.2005 13:10:36
Steve
Hi Leuts
Wie setze ich "MeinMenü" vor das Fragezeichen in der Menüleiste?
Mein aktueller Code:

Sub Menue()
Dim AktiveMenüLeiste As Object, EMU As Object, Befehl As Object
On Error Resume Next
Application.CommandBars("EMU").Delete
CommandBars.ActiveMenuBar.Controls("EMU").Delete
Set AktiveMenüLeiste = CommandBars.ActiveMenuBar
'Menü erstellen
Set EMU = AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
EMU.Caption = "&EMU"
'Erster Befehl im Menü
Set Befehl = EMU.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Diagramm erstellen"
.OnAction = "make_diagram"
End With
'Zweiter Befehl im Menü
Set Befehl = EMU.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Wählen..."
.OnAction = "other"
End With
End Sub

Greetz Steve
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neues Menue; Position vor '?'
19.01.2005 13:21:19
Josef
Hallo Steve!
ZB. so:

Sub Menue()
Dim AktiveMenüLeiste As CommandBar, EMU As CommandBarPopup, _
Befehl As CommandBarButton
On Error Resume Next
Application.CommandBars("EMU").Delete
CommandBars.ActiveMenuBar.Controls("EMU").Delete
Set AktiveMenüLeiste = CommandBars.ActiveMenuBar
'Menü erstellen
Set EMU = AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, _
Temporary:=True, Before:=AktiveMenüLeiste.Controls("&?").Index)
EMU.Caption = "&EMU"
'Erster Befehl im Menü
Set Befehl = EMU.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Diagramm erstellen"
.OnAction = "make_diagram"
End With
'Zweiter Befehl im Menü
Set Befehl = EMU.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Wählen..."
.OnAction = "other"
End With
End Sub

P.S.: Schau dir in den Basics von Hans mal die korrekte Variablendeklaration an!
Gruß Sepp
Anzeige
AW: Neues Menue; Position vor '?'
19.01.2005 13:35:59
Steve
Danke hat geklappt!
In der Rubrik xlBasics meinst du? Ja mach ich mal.
Danke für den Tipp
Steve
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige