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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige