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

Befehl in standard Menü einbauen

Befehl in standard Menü einbauen
21.11.2007 09:47:25
yogi
Tach allerseits
in der "Worksheet Menu Bar" sollte ich unter "Format" einen neuen Befehl "Diagramfarben" einbauen, der immer sichtbar ist, egal ob ein Tabellen- oder Diagrammblatt angewählt und egal ob eine Zelle oder Diagramm angewählt ist.
Mit
Set cmdctrl = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30006)
Set newcmd = Application.CommandBars("Worksheet Menu Bar").Controls(cmdctrl.Index)
Set cmd_add = newcmd.Controls.Add(Type:=msoControlPopup, Temporary:=False)
With cmd_add
.Caption = "Set Colors"
.OnAction = "set_them_colors"
End With
kann ich zwar einen Befehl ins Menü "Format" stellen, aber der verschwindet sobald etwas anderes als eine Zelle angewählt ist.
Wie kann ich den Befehl da festnageln?
Gruss yogi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Befehl in standard Menü einbauen
21.11.2007 10:22:19
Rudi
Hallo,
in dem Moment, wo du ein Diagramm selektierst wird die Worksheet Menu Bar durch die Chart Menu Bar ausgetauscht. Dieser musst du das Control auch hinzufügen.

Sub tt()
Dim myCmd As CommandBarButton
Set myCmd = Application.CommandBars("worksheet menu bar").FindControl(ID:=30006).Controls. _
Add(msoControlButton)
With myCmd
.Caption = "Test"
.OnAction = "MeinMakro"
End With
Set myCmd = Application.CommandBars("chart menu bar").FindControl(ID:=30006).Controls.Add( _
msoControlButton)
With myCmd
.Caption = "Test"
.OnAction = "MeinMakro"
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Befehl in standard Menü einbauen
21.11.2007 10:57:34
yogi
Super!!!!!
Gruss
yogi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige