Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Point(n). Select abfangen

Point(n). Select abfangen
23.05.2005 16:58:00
Frank
Hi Leute,
ich möchte gern in einem Diagramm das [Point.Select] abfangen. Nachdem Motto:
Klicke auf Datenpunkt und siehe dann genauere Angaben.
Jemand 'ne Idee ?
Danke im Voraus
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Point(n). Select abfangen
23.05.2005 17:05:16
Nepumuk
Hallo Frank,
eingebttetes Diagramm oder Diagrammblatt?
Gruß
Nepumuk
AW: Point(n). Select abfangen
24.05.2005 08:47:08
Frank
Beide Möglichkeiten.
Gruß
Frank
AW: Point(n). Select abfangen
24.05.2005 15:31:51
Nepumuk
Hallo Frank,
ein Diagrammblatt bringt ja sein eigenes Klassenmodul mit. Für ein eingebettetes Diagramm musst du halt eine Klasse definieren. Der Code ist ganz einfach:


Private Sub Chart_MouseDown(ByVal Button As LongByVal Shift As Long, _
    ByVal As LongByVal As Long)
    Dim IDNum As Long, a As Long, b As Long, arrX, arrY, X_Wert, Y_Wert
    Dim sc As Series
    If Button = 1 Then
        Me.GetChartElement x, y, IDNum, a, b
        If IDNum = xlSeries Then
            Set sc = Me.SeriesCollection(a)
            arrX = sc.XValues
            arrY = sc.Values
            X_Wert = arrX(b)
            Y_Wert = arrY(b)
            Me.Deselect
            MsgBox "X= " & X_Wert & " Y= " & Y_Wert
        End If
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: Point(n). Select abfangen
24.05.2005 16:25:52
Frank
Danke, wird morgen sofort ausprobiert.
Gruß
Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige