Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
If Button <> XlMouseButton.xlPrimaryButton Then Exit Sub
m_dtmLMBDown = Application.Evaluate("NOW()") ' hat eine höhere Genauigkeit als VBA.Now()
End Sub
Soll ja nur auf den LMB reagieren.
|