Das Archiv des Excel-Forums

Menüleiste

Bild

Betrifft: Menüleiste
von: Alexandra

Geschrieben am: 24.10.2003 11:17:32

Werte Spezialisten,

ich möchte gerne für diverse Formulare Menüleisten anlegen, die sich automatisch
bei Öffnen zeigen und funktionieren und automatisch bei schließen des Formulares wiederschwinden. Es sollen Makros hinterlegt werden, die sich ausschließlich im jeweiligen Formular befinden.
Gibt es hier eine Möglichkeit?

Danke und Gruß

Alexandra
Bild


Betrifft: AW: Menüleiste
von: Hajo_Zi
Geschrieben am: 24.10.2003 11:24:49

Hallo Alexandra

schaue mal auf meine Homepage da ist ein Beispiel.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.





Bild


Betrifft: AW: Menüleiste

von: Willie
Geschrieben am: 24.10.2003 11:30:18

Ja das geht hier ein Beispiel

Onaction ruf dann ein Makro auf !

Gruß

Willie


Sub formularmenüeinfuegen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim Endkundenformular As CommandBarControl
Dim Mb As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).index
Set Endkundenformular = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=i_Hilfe, Temporary:=True)
Endkundenformular.Caption = "Endkunden&formular"
Set Mb = Endkundenformular.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "&Eingabe Kundendaten"
.Style = msoButtonIconAndCaption
.OnAction = "Eingabe2"
.BeginGroup = True
.FaceId = 23
End With
Set Mb = Endkundenformular.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "&Eingabe Endkundenformular"
.Style = msoButtonIconAndCaption
.OnAction = "Eingabe1"
.BeginGroup = True
.FaceId = 44
End With
Set Mb = Endkundenformular.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "&Auswahl Sprache"
.Style = msoButtonIconAndCaption
.OnAction = "Eingabe0"
.BeginGroup = True
.FaceId = 355
End With
Set Mb = Endkundenformular.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "&Suchen"
.Style = msoButtonIconAndCaption
.OnAction = "suchen"
.BeginGroup = True
.FaceId = 46
End With
End Sub


Sub Endkundenformularmenüausblenden()
Application.CommandBars(1).Reset
End Sub



 Bild