Supportnet / Forum / Tabellenkalkulation

Hallo, Ich wollte hier aus einigen vorhanden Makros, ein neues Makro kreieren, das einen Hauptmenüpunkt "Vorrichten" erstellt, den ich nur anzuklicken brauche, und eine Prozedur automatisch ausgeführt wird: [b]Dim neuesMenü As CommandBarControl On Error Resume Next Set neuesMenü = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton, Temporary:=True) neuesMenü.Caption = "Vorrichten" neuesMenü.OnAction = "Drucken" Set neuesMenü = Nothing[/b] Der Punkt wird erstellt, aber leider in der Leiste unsichtbar. Nur wenn ich mit der Maus auf ihn Ziele wird seine Umrahmung sichtbar. Ich glaube diese Transparenz kommt davon, dass er keinen Namen bekommt. Kann mir bitte jemand meinen Fehler zeigen? MfG

Hallo,


Option Explicit

Sub Neues_Menü()

Dim MenüLeiste As CommandBar
Dim neuesMenü As CommandBarControl, neuerEintrag As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("Vorrichten").Delete
Set MenüLeiste = CommandBars.ActiveMenuBar
Set neuesMenü = MenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
neuesMenü.Caption = "Vorrichten"
neuesMenü.OnAction = "Drucken"
Set MenüLeiste = Nothing
Set neuesMenü = Nothing
End Sub

Gruss

Servus nochmal.

so habe ich auch schon probiert. so erscheint aber beim Menüpunkt nach dem Druck-Vorgang ein , wie soll ich es nennen, "Unter-Menü-Punkt" oder "Menü-Unter-Punkt", der später aber wieder verschwindet.
Ein kleines "Schönheits-Problem", aber damit kann ich leben

MfG
riddik

Hallo Ahnan,

(noch ein Versuch dich zu treffen)

wenndu schon mal da bist (und wenn du noch da bist), könntest du dir Thread "Formatieren gesperrter Zellen" anschauen. Antrag Nr. 10 von mir.

MfG
riddik

• wie lösche ich alte Programmhinweise in der Menüleiste von word 2003
• Menüleiste is weg
• Icons in der Menüleiste bei Vista