Thema Datum  Von Nutzer Rating
Antwort
22.07.2022 21:40:20 Bärenkind
NotSolved
Blau Diagramm Erstellung per Makro plus VBA-Code Zuweisung
22.07.2022 22:06:30 Gast60222
NotSolved
22.07.2022 22:12:28 Gast60222
NotSolved
23.07.2022 23:14:03 Gast94999
NotSolved
24.07.2022 02:59:33 Gast87951
NotSolved

Ansicht des Beitrags:
Von:
Gast60222
Datum:
22.07.2022 22:06:30
Views:
205
Rating: Antwort:
  Ja
Thema:
Diagramm Erstellung per Makro plus VBA-Code Zuweisung

Es ist nicht üblich auf normale Klicks zu reagieren - deshalb werden auch nur Ereignisse für den Rechtsklick und den Doppelklick überhaupt angeboten.

Mit Board-Mitteln kann man sich allerdings etwas basteln.

'im Diagrammblatt
Option Explicit

Private m_dtmLMBDown As Variant

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
  m_dtmLMBDown = Application.Evaluate("NOW()") ' hat eine höhere Genauigkeit als VBA.Now()
End Sub

Private Sub Chart_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
  Dim dtm As Date: dtm = Application.Evaluate("NOW()") ' hat eine höhere Genauigkeit als VBA.Now()
  If IsEmpty(m_dtmLMBDown) Then Exit Sub
  If Button <> XlMouseButton.xlPrimaryButton Then Exit Sub
  If dtm - m_dtmLMBDown <= 0.0000018 Then '< der Schwellwert ist grob ermittelt
    Debug.Print Time$; " Click event"
  End If
  m_dtmLMBDown = Empty
End Sub

Jetzt ist das für deinen Fall noch nicht die finale Lösung, da du ja das Diagramm per VBA erstellst. Entweder fügst du den obigen Code per VBE hinzu, oder du erststellst dir eine versteckte Vorlage, welche bereits das Makro beinhaltet, und du kopierst dieses statt ein neues Diagramm zu erstellen.

Ein anderer Ansatz wäre, dein erstelltes Chart in einer Klasse zu kapseln und dich dort auf die Events zu hängen.

 

Grüße


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.07.2022 21:40:20 Bärenkind
NotSolved
Blau Diagramm Erstellung per Makro plus VBA-Code Zuweisung
22.07.2022 22:06:30 Gast60222
NotSolved
22.07.2022 22:12:28 Gast60222
NotSolved
23.07.2022 23:14:03 Gast94999
NotSolved
24.07.2022 02:59:33 Gast87951
NotSolved