HERBERS Excel-Forum - die Beispiele

Thema: Bei Rechtsklick auf Diagramm MessageBox-Aufruf

Home

Gruppe

Grafik

Problem

Ein Rechtsklick auf das Diagramm-Objekt soll eine Meldung aufrufen, ohne dass ein Diagramm-Kontextmenü angezeigt wird.

Lösung
Den Code in die genannten Module eingeben.
ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Worksheets("Tabelle1").Select
   Set rng = ActiveCell
End Sub
ClassModule: Tabelle1

Dim MeinDiagramm As New Klasse1

Private Sub Worksheet_Activate()
   Set MeinDiagramm.Diagramm = ChartObjects(1).Chart
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set rng = ActiveCell
End Sub
ClassModule: Klasse1

Dim MyButton As Long

Public WithEvents Diagramm As Chart

Private Sub Diagramm_BeforeRightClick(Cancel As Boolean)
   If MyButton = xlSecondaryButton Then
      Cancel = True
      MsgBox "Hallo User!"
   End If
End Sub

Private Sub Diagramm_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
   MyButton = Button
End Sub

Private Sub Diagramm_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
   Call Diagramm_BeforeRightClick(True)
   rng.Select
End Sub
StandardModule: Modul1

Public rng As Range

Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm

Diagramm mit vba erstellen Diagramm-Datenpunkte mit neuem Diagramm verküpfen
Diagramme in PowerPoint mit VBA neu befüllen Dynamischer Datenbereich im Diagramm
Kartendiagramm per VBA erstellen und formatieren VBA: Dynamisches Diagramm mit bestimmten Zellberei
Gestapelte Säulen-Diagramm: Ich kapier's nicht 3D-DIagramme
Hilfe bei Diagramm zu PowerPoint VBA Diagramme nach mehreren Balken filtern
fehlerhaftes Punktdiagramm(XY) Diagramme und ihr Format
Jahresgrafik #NV im Kreisdiagramm
Diagrammquelle in Werte umwandeln mit VBA? gestapeltes Balkendiagramm
Grafik - Linie nach unten, Kriterien links "Gestapelte Säulen" Diagramm nebeneinander?
Formatierung anderer Diagramme Dynamisieren - Gleiches Diagramm für alle Blätter
Balkendiagramm - Farbflächen in den Hintergund? Balkendiagramm: 2 Balken voreinander darstellen
spezielles Diagramm Linien-Säulendiagramm auf 2 Achsen
Grafik auf Position bringen Diagrammformatierung übertragen
Skalierung Balkendiagramm Diagrammgröße
Diagramme DIN A3 drucken Werte aus Usf-Berechnung für Diagramm fehlerhaft!
0-Wert im Diagramm unsichtbar machen Diagramm erkennen
Achsen für Exceldiagramm autom. anpassen Frage zu Diagrammdarstellung
Viele Grafiken mit gleicher Größe einfügen Excel Grafiken nur schwarz/weiss
Skalierung Diagramm Excel - Diagramme
Benötige Hilfe bei Diagrammen Fortsetzung Linienfarbe ändern Diagramm
dynamische Datenquelle Diagramm Farbänderung bei Liniendiagramm
Mit einem Makro ein Diagramm löschen Diagramm – Zweite Rubrikenachse
Zweite Y-Achse in Exceldiagramm Leere Zellen interpolieren in Diagramm
Grafik drucken Grafik nach Change in Exceltabelle laden
Diagramm auf Landkarte Skalierung von Diagrammachsen