Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
676to680
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
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menüleiste mit Untermenüs?

Menüleiste mit Untermenüs?
10.10.2005 15:28:22
Holger
Hallo zusammen,
habe mir ein eigenes Menü in Excel gebaut. Hier ein Auszug:
Set M1 = MB.Controls.Add(Type:=msoControlPopup)
M1.Caption = "&Datei"

Set cmdbutton = M1.Controls.Add
With cmdbutton
.Tag = "dpmSpeichern"
.Caption = "&Speichern"
.OnAction = "KoBuSys_Speichern"
.Style = msoButtonIconAndCaption
.FaceId = 3
End With
Was muss ich ändern um aus dem Untermenü 'Speichern' mit wie in Excel üblich noch ein Untermenü zu öffnen ist? Z.B. Speichern -&gt sofort oder später
MfG
Holger Wächter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Menüleiste mit Untermenüs?
10.10.2005 15:46:41
WernerB.
Hallo Holger,
wie gefällt Dir das?
Set M1 = MB.Controls.Add(Type:=msoControlPopup)
M1.Caption = "&Datei"
Set cmdbutton = M1.Controls.Add
With cmdbutton
.Tag = "dpmSpeichern"
.Caption = "&Speichern"
.OnAction = "KoBuSys_Speichern"
.Style = msoButtonIconAndCaption
.FaceId = 3
End With
Dim oBtn As CommandBarButton
'- erster Untertitel
Set oBtn = oPopUpB.Controls.Add
With oBtn
.Caption = "EIN"
.OnAction = "WeKa_Ansicht"
End With
'- zweiter Untertitel
Set oBtn = oPopUpB.Controls.Add
With oBtn
.Caption = "AUS"
.OnAction = "EinFenster_Ansicht"
End With
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Menüleiste mit Untermenüs?
10.10.2005 15:46:58
Nepumuk
Hi Holger,
in das Popup ein weiteres Popup einfügen.
Gruß
Nepumuk

AW: Menüleiste mit Untermenüs?
10.10.2005 16:01:01
Holger
Vielen dank,
wusste nicht, das das so einfach geht.
MfG
Holger Wächter

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige