Office: (Office 2010) Erstellung eines eigenen Kontextmenü für ein Diagramm

Hallo !

Kann mir vielleicht jemand von euch sagen, ob es mit VBA für Excel möglich ist, ein eigenes Kontextmenü zu programmieren, welches man mit der rechten Taste seiner Maus aufrufen kann?

Dieses Kontextmenü sollte dann bei mir nur geöffnet werden, wenn man in bestimmte Bereiche eines Diagramms klickt (z.B. eine Blase in einem Blasendiagramm).

Ist so etwas in VBA zu bewerkstelligen? Natürlich sollten dann auch alle anderen Kontextmenüs von MS excel in diesem Zusammenhang komplett verschwinden und für den Benutzer nicht sichtbar sein.

Danke schön für die Unterstützung !

Grüße
Kossy

:)

 

Hi Kossy,

das Kontextmenü kannst du nach folgendem Prizip manipulieren (zuerst werden alle vorhandenen Schalter des Kontextmenüs gelöscht und dann ein neuer Schalter erstellt, der das Mano "ausfuehren" startet):
Code:

Zurücksetzen kannst du das Kontextmenü mit diesem Code:
Code:

Wenn du das Kontextmenü beim Klick auf das Diagramm/Datenpunkt verändern willst, hängt das "Wie" davon ab, ob du ein Diagrammblatt oder ein eingebettetes Diagrammobjekt verwendest - dazu hatten wir vor längerer Zeit hier im Forum einen gemeinsamen Thread, musst also nur dort nachschauen.

 

HAllo Kossi

Das ist möglich.
In Excel xp hab ich das schonmal gemacht.

Das Ereigniss (das den Rechtsclick auf eine Blase erkennt) kann ich dir geben, aber in Excel2010 habe ich noch nie ein Kontextmenu erstellt.

Ist das Diagramm in einem Tabellenblatt eingebettet oder ist es ein eigenes Blatt ?
Für ein eigenes Blatt geht so:

' **********************************************************************
' Modul: Diagramm4 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim lngPoint As Long
Dim L As Long
Dim ID As Long
If Me.ChartType = xlBubble Then
If Button = 2 Then 'rechtsclick
Me.GetChartElement x, y, ID, L, lngPoint
If ID = xlSeries Then 'Schauen was selectiert ist
MsgBox "Jetzt das Kontextmenu erstellen"
End If
End If
End If
End Sub

Private Sub Chart_BeforeRightClick(Cancel As Boolean)
Cancel = True
End Sub




ransi

 

Hallo ihr Zwei !

Habt vielen Dank für die Codebeispiele, ich werde diese zeitnah mal austesten, allerdings komme ich erst Montag wieder dazu.

Grüße
Kossy

 

Hi Beverly !

Ich habe eben mal Deinen Code ausprobiert, allerdings reagiert Excel nicht auf einen Rechtsklick. Es werden nur Klicks mit der linken Maustaste auf den Blasen meines Diagramms angenommen.

Ich habe eben mal den Debugger laufen lassen (also vorher auch einen Haltepunkt auf dem Ereignis gesetzt, dieses wird aber immer ignoriert). Der Wert der Variable Button beträgt niemals zwei !

Hier mal der Code (es handelt sich um ein eingebettetes Diagramm und nciht um eins auf einem dafür separaten Diagrammblatt, ich habe also eine eigne Klasse für die Ereignisse programmiert):

Code:

Es wird aber dennoch immer wieder dan konventionelle Kontextmenü von MS Excel 2010 angezeigt.

Vielen Dank für die Unterstützung !

Grüße
Kossy

//EDIT

Ich muss mich noch einmal korrigieren, nun wird durch die Variable Button gleich 2 gesetzt (warum auch immer das plötzlich funktioniert), allerdings wird weiterhin das Kontextmenü nicht angepasst.

Merkwürdig ist auch, dass in der For Schleife gar nichts passiert.

Code:

 

Hi Kossy,

dann solltest du schon mal deine Arbeitsmappe hochladen - wer soll das nachbauen, zumal niemand weiß, wie du die Klasse definiert hast. Dir ist ja außerdem hinreichend bekannt, dass ein Nachbau immer anders aussieht als das Original und was im Nachbau funktioniert muss folglich nicht unbedingt im Original dann auch so funktionieren.

Wenn du irgend etwas am Code änderst, dann musst du die Klasse neu initialisieren, erst dann wird die Änderung angenommen.

 

Hallo !

Ich kann diese Arbeitsmappe nicht hochladen, da sie aufgrund eines Cubes im Hintergrund defintiv zu groß ist und ein Nachbauen ist auch icht so ohne weiteres machbar.

Die Klasse wird automatisch immer wieder neu initalisiert, es muss definitiv an dem Code liegen, denn alle andere Events werden ja ausgeführt, eben nur nicht der Code für das Kontextmenü, welche mit dem Rechtsklick ausgeführt werden soll.

 

Hi,

es ist nicht das Kontextmenü "Cells" welches manipuliert werden muss, sondern ein anderes. Allerdings weiß ich nicht welches es ist.

 

Hallo nochmal !

ich habe ein kleines Problem. Ich habe mit dem folgenden Code jetzt das Cell Kontextmenü so manipuliert, dass dort alle Einträge raus sind und nur noch ein "Hallo ausgeben" im Kontextmenü auftaucht:

Code:

Wichtig: Diese Einstellung ist jetzt plötzlich fest und ist in allen anderen Excel Dokumenten sichtbar und nciht mehr rückgängig zu machen, indem man bspw. das Dokument schließt oder neu öffnet. Auch in allen anderen Exceldokumenten ist dieses Problem sichtbar.

Wie kann ich das jetzt wieder rückgängig machen?

Danke schön für die Hilfe !

 

Hi,

siehe Beitrag #2

 

Hi Beverly

tut mir leid, aber das verstehe ich nicht...

 

Hi,

 

Sorry, der Beitrag war in den falschen Topic gerutscht, daher hier noch einmal:

Hallo nochmal !

Danke Beverly,

wir kommen der Sache langsam näher, ich habe im Anhang mal das KOntextmenü abfotografiert, welches ich verändern bzw. durch eigene Felder anpassen will.

Außerdem habe ich mal in einem Exceldokument alle Command Bars ausgeben lassen, die Excel anbietet, aber leider (so denke ich jedenfalls) ist mein Kontextmenü da nciht enthalten.

Kann mir vielleicht jemand sagen, wie dieses Kontextmenü heißt, wenn man einen Rechtsklick auf eine Blase in einem Blasendiagramm durchführt? Kann es evtl. sein, dass sich dieses aus mehreren Kontextmenüs zusammensetzt!?!

Danke für die Hilfe !

Grüße
Kossy

//EDIT

Vielleicht noch wichtig zu erwähnen, es handelt sich um ein eingebettetes Diagramm

 

Hallo nochmal !

Ich muss nochmal nachfragen, weiß wirklich niemand von euch, wie dieses Kontextmenü mit Namen genannt wird, oder mit welcher ID man es innerhalb von CommandBars() ansprechen kann? Ich benötige das dringend und kann es nirgends im Netz darüber etwas brauchbares finden...

Ich verstehe einfach nicht, warum man in Sachen VBA so etwas nirgends mal vernünftig nachschlagen kann, so wie hier im Fall Java:

Java 2 Platform SE v1.4.2

 

Hallo

Versuch mal dies:

Dim myCB As CommandBarPopup
Set myCB = Application.CommandBars.FindControl(ID:=30022)

ransi