Menüleiste erweitern

Forumthread: 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

Re: Menüleiste erweitern

27.06.2003 18:30:24

GraFri
Re: Menüleiste erweitern

27.06.2003 18:43:43

Stony
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.

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Menüleiste erweitern

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

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread