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

Point(n). Select abfangen

Forumthread: 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
Anzeige

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 Long, ByVal Shift As Long, _
    ByVal x As Long, ByVal y 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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige