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

Menüleisten erweitern

Forumthread: Menüleisten erweitern

Menüleisten erweitern
Paul
Hallo,
Ich würde gerne einige Makros in den Menüs einbauen.
Es war so angedacht.
Man klickt auf Format, dort möchte ich gerne einen Eintrag hinzufügen, nennen wir Ihn "Drucken". Drucken hat nur die Aufgabe sich weiter zu öffnen, sobald man mit dem Cursor draufgeht. Dann sollen sich drei Unter bzw. Nebenregister öffnen: "Drucken Tabelle A und B"; "Drucken Tabelle A"; "Drucken Tabelle B".
Kann dat hier wer?
Gruß
Paule
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Menüleisten erweitern
16.02.2006 18:53:17
Herbert
hallo Paule,
in etwa so:


Option Explicit
Public Sub Menüeintr_erstellen()
Dim cb, ctrlUp, ctrl1, ctrl2
Set cb = Application.CommandBars("Worksheet Menu Bar")
Set ctrlUp = cb.Controls("Format").Controls.Add(Type:=msoControlPopup, Temporary:=True)
     ctrlUp.Caption = "Drucken"
     
Set ctrl1 = ctrlUp.Controls.Add(Type:=msoControlButton, Temporary:=True)
With ctrl1
    .Caption = "Drucken A"
    .OnAction = "Drucken_A"
End With
Set ctrl2 = ctrlUp.Controls.Add(Type:=msoControlButton, Temporary:=True)
With ctrl2
    .Caption = "Drucken B"
    .OnAction = "Drucken_B"
End With
End Sub
Public Sub Drucken_A()
MsgBox "Drucken_A"
End Sub
Public Sub Drucken_B()
MsgBox "Drucken_B"
End Sub
Public Sub Eintr_Drucken_löschen()
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Controls("Drucken").Delete
End Sub

     gruß Herbert
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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