Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
272to276
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Menüleiste erweitern

Menüleiste erweitern
27.06.2003 17:25:44
Erich M.
Hallo zusammen,

ich "bastle" an einer Erweiterung der Menüleiste und hänge an der Erstellung von Untermenüs; Ergebnis sollte sein
Übersichten
.....Halbfertige
..........Anzeige
..........Ausdruck

Fehlermeldung bei "With.Controls.Add..." =
Laufzeitfehler 438
Objekt unterstützt diese eigenschaft oder Methode nicht

Die Abänderung von ..Button in....Popup hilft auch nicht.

Vielen Dank für Änderungsvorschläge / Lösungen.

mfg
Erich

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menüleiste erweitern
27.06.2003 18:30:24
GraFri

Hallo

Hab ich mal irgendwo gefunden. Hilft dir sicher weiter. Alles in ein Modul.

Sub Auto_Open()
Set ML = Application.CommandBars("Worksheet Menu Bar")
' Name für neues Menü wird gesetzt
Set U1 = ML.Controls.Add(Type:=msoControlPopup, Before:=10)
U1.Caption = "&Werkzeuge"
U1.Tag = "MeinMenü" ' dient zur eindeutigen Identifizierung des Menüs
 
' 1. Menüpunkt wird angelegt
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&1. Menüpunkt"
.OnAction = "Makro1"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
 
' neues Untermenü wird hinzugefügt
Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
With Punkt
.Caption = "1.Untermenü"
End With
 
Set U2 = Punkt ' Variable für das 2. Untermenü wird gesetzt
'Neuer Menüeintrag im 2.Untermenü
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&2.Menüpunkt"
.OnAction = "Makro2"
.Style = msoButtonIconAndCaption
.FaceId = 144
End With
 
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&3.Menüpunkt"
.OnAction = "Makro3"
.Style = msoButtonIconAndCaption
.FaceId = 1715
End With
 
' Weiterer Eintrag im 1.Untermenü
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&4.Menüeintrag"
.OnAction = "Makro4"
.Style = msoButtonIconAndCaption
.FaceId = 3200
End With
End Sub
 
 
Sub Auto_Close()
Set ML = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next ' Fehlerbehandlung
ML.FindControl(Tag:="MeinMenü").Delete
End Sub

mfg, GraFri

Anzeige
Re: Menüleiste erweitern
27.06.2003 18:43:43
Stony

Hi Erich,
hoffe das es dir weiterhilft:

'-----------------------------------------------------------
Sub Auto_Open()

' MenuBars(xlWorksheet).Reset 'zur Grundeinstellung
' Anzahl = MenuBars(xlWorksheet).Menus().Count
' For i = 1 To Anzahl
' MenuBars(xlWorksheet).Menus(1).Delete
' Next i 'Kannste alle löschen wennste willst...

MenuBars(xlWorksheet).Menus.Add ""
Set mb = MenuBars(xlWorksheet).Menus("Halbfertige")

With mb
.MenuItems.Add Caption:="Anzeige", _
OnAction:="anzeigen"
.MenuItems.Add Caption:="Ausdruck", _
OnAction:="drucken"
End With

End Sub

'-----------------------------------------------------------
Untermenüs in nem Untermenü dürften eigentlich genauso gehn (glaub ich mal, habs aber ned ausprobiert)..

MfG Stony

Anzeige
DANKE an alle (o.T.) !! Re: Menüleiste erweitern
27.06.2003 18:57:53
Erich M.

.

Ergänzung / Re: Menüleiste erweitern
27.06.2003 21:41:18
Erich M.

habe ich noch entdeckt, auch interessant:
(nachstehender Link unter Menü-Programmierung)
http://www.excel-inside.de/

mfg
Erich

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige