Office: (Office 2010) Kontextmenü erweitern

MarcHüfing · 14. August 2013

Hallo,

ich hatte zu Zeiten von Excel 2003 das Kontextmenü einer Excel-Datei um einige Comboboxen erweitert:

Dim cBar As CommandBar
Dim ctl As CommandBarControl

Set cBar = Application.CommandBars("Cell")
Set ctl = cBar.Controls.Add(Type:=msoControlComboBox)

Damit werden diese Comboboxen in Excel 2003 beim Rechtsklick in eine Zelle unter den Standard Kontextmenüeinträgen angezeigt.

Nun, in Excel 2010, läuft der Programmcode auch fehlerfrei durch. Im VBA Überwachungsfenster sieht man, dass der CommandBar "cBar" die Controls (Comboboxen) hinzugefügt werden. Nur werden diese im Kontextmenü nicht angezeigt.*frown.gif*

Wenn ich den Microsoft richtig verstehe gibt es in Excel 2010 durch RibbonX wohl eine andere Möglichkeit um Kontextmenüs anzupassen, allerdings müsste die alte Version doch auch noch funktionieren, oder?

:)

Hajo_Zi · 16. August 2013

ich habe es getestet auf dem Firmen Rechner keine Veränderung und auf dem Homerechner werden die Ergänzungen angezeigt. Ich habe die Beispiekl von meiner HP getestet.
Vielleicht hängt es mit den Rechten zusammen?

MarcHüfing · 16. August 2013

Rechte sollten nicht das Problem sein. Bin lokaler Admin.

Ich bin noch nicht so fit in der Bedienung von Office 2010. Habe die Firma erst gerade von 2003 auf 2010 umgestellt. Muss man evtl. über das Excel Menüband noch irgend etwas einstellen damit das erweiterte Kontextmenü sichtbar wird?

Hajo_Zi · 16. August 2013

also ich habe da nichts Extra eingestellt. Zu Deinem Code kann ich nichts schreiben, da ich den nicht sehe. Meine getesteten sind auf meiner Homepage.
VBA Beispiele Seite Kontextmenü - Hajo's Excelseiten

mumpel · 16. August 2013

Hallo!

Oder: http://www.rholtz-office.de/workshop/20.html

Gruß, René

MarcHüfing · 16. August 2013

\@Hajo_Zi:
OK, Deine Beispiele funktionieren auch bei mir. Du benutzt ein Control vom Typ "msoControlPopup" bzw. darunter Standard Menü Button. Ich habe in meiner Datei Controls vom Typ "msoControlComboBox", also Comboboxen benutzt. Das funktioniert so auch in Deiner Datei nicht, wenn ich dies dort ergänzen würde:
Code:

Sub KontextmenueErgaenzen()
With CommandBars("Cell").Controls.Add(Type:=msoControlComboBox)
.Caption = "Ich bin eine Combobox"
.Style = msoComboLabel
.DropDownWidth = -1
.OnAction = "mache irgendetwas"
.Visible = True
.BeginGroup = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@mumpel:
Ich würde die Datei gerne im gemischten Betrieb, also sowohl mit einem 2003er als auch mit einem 2010er Excel benutzen können.

Beverly · 16. August 2013

Hi Marc,

erstelle ein eigenes Kontextmenü mit deiner ComboBox und starte es mit einem zusätzlichen Schalter, den du im Rechtsklickmenü ergänzt.

MarcHüfing · 20. August 2013

Hallo Karin,

das ist ein guter Ansatz. In einem eigenen Kontextmenü lassen sich auch ComboBoxen einfügen (warum auch immer). Hier wird beschrieben wie ein eigenes Kontextmenü zu erstellen ist. Ich war bislang der Meinung man könne nur das standard Kontextmenü editieren.

Vielen Dank!

Marc

Beverly · 20. August 2013

Hi Marc,

und das wäre der Code für das Erstellen eines eigenen Kontextmenüs mit ComboBox, welches aus dem Rechtsklick-Kontextmenü gestartet wird:

Code unter DieseArbeitsmappe

Code:

Option Explicit

Private Sub Workbook_Open()
Dim cbLeiste As CommandBar
' On Error erforderlich falls gleichnamiges Menü schon vorhanden
On Error Resume Next
' Kontextmenü erstellen als PopUp
Set cbLeiste = Application.CommandBars.Add(Name:="Eigene", Position:=msoBarPopup)
On Error GoTo 0
If Not cbLeiste Is Nothing Then
With cbLeiste
With .Controls.Add(Type:=msoControlComboBox)
.Style = msoComboLabel
.OnAction = "Auswahl"
.Caption = "Auswahl"
End With
End With
End If
With Application.CommandBars("Cell").Controls.Add
.Caption = "Combobox"
.OnAction = "Aufruf"
.Visible = True
.BeginGroup = True
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
' Kontextmenü löschen
Application.CommandBars("Eigene").Delete
' Rechtsklickmenü zurücksetzen
Application.CommandBars("Cell").Reset
On Error GoTo 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code im allgemeinen Modul

Code:

' ComboBox im eigenen Kontextmenü füllen und Menü starten und
Sub Aufruf()
Dim lngZeile As Long
For lngZeile = Application.CommandBars("Eigene").Controls("Auswahl").ListCount To 1 Step -1
Application.CommandBars("Eigene").Controls("Auswahl").RemoveItem lngZeile
Next lngZeile
For lngZeile = 1 To 10
Application.CommandBars("Eigene").Controls("Auswahl").AddItem Cells(lngZeile, 1), lngZeile
Next lngZeile
Application.CommandBars("Eigene").ShowPopup
End Sub

' Code für ComboBox im eigenen Kontextmenü
Sub Auswahl()
Selection = Application.CommandBars("Eigene").Controls("Auswahl").Control.Text
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ComboBox wird aus der aktiven Tabelle, Spalte A, Zeile 1 bis 10 gefüllt.

Office: (Office 2010) Kontextmenü erweitern

Kontextmenü erweitern

Kontextmenü erweitern

Kontextmenü erweitern

Kontextmenü erweitern

Kontextmenü erweitern - Similar Threads - Kontextmenü erweitern

Fehlender Neuer Kommentar und Neue Notiz im Kontextmenü von Excel

Das Kontextmenü „E-Mail“ wird in Outlook für Mac nicht angezeigt, wenn Sie mit der ...

Excel 2016 rechte Mausklick kontextmenü fehlt

Fehlen des Eintrages Hyperlink im Kontextmenü

Kontextmenü Access 2010

Fehler im Word-Kontextmenü (Systran)

Outlook 2010 Grafikdownload funktioniert nicht mehr