Menüleisten erweitern

Forumthread: Menüleisten erweitern
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

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

AW: Menüleisten erweitern

Herbert

AW: Menüleisten erweitern

16.02.2006 19: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