Wertepaarermittlung aus Diagramm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
in dem Fall könnte man anstelle des MouseMove- das Select-Ereignis verwenden:

Private Sub chrDiagramm_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim strXWerte As String           ' Variable für den X-Wertebereich der Datenereihe
Dim strYWerte As String           ' Variable für den Y-Wertebereich der Datenereihe
Dim serReihe As Series
Dim strAnzeige As String
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
With chrDiagramm
' markiertes Diagrammelement ist eine Datenreihe
Set serReihe = .SeriesCollection(1)
If ElementID = 3 Then
' es wurde ein einzelner Datenpunkt markiert
If Arg2  -1 Then
' Markerung des Datenpunktes formatieren
If Arg1 And Arg2  0 Then
With serReihe
.ApplyDataLabels
.DataLabels.Delete
End With
strAnzeige = "X-Wert: " & serReihe.XValues(Arg2) & vbLf & "Y-Wert: " & _
serReihe.Values(Arg2)
With chrDiagramm.SeriesCollection(Arg1).Points(Arg2)
.ApplyDataLabels
.DataLabel.Caption = strAnzeige
.DataLabel.Format.TextFrame2.TextRange.Characters.ParagraphFormat _
.Alignment = msoAlignLeft
.DataLabel.Left = chrDiagramm.SeriesCollection(Arg1) _
.Points(Arg2).Left - .Width
.DataLabel.Font.Italic = True
.DataLabel.Position = xlLabelPositionAbove
End With
End If
End If
Else
With serReihe
.ApplyDataLabels
.DataLabels.Delete
End With
End If
End With
' Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub

Du musst natürlich beachten, dass du nicht bliebig schnell mit den Cursortasten durch die Datenpunkte switchen kannst, denn dann schafft es Excel nicht, das Beschriftungslabel aus- und wieder einzublenden und die Daten anzuzeigen.

Hi,
ich habe mal ein Beispiel erstellt, wie man es mit einem Add-In lösen könnte: Link zur Datei.
Beim Starten des Add-Ins wird im Register Add-Ins ein Schalter erstellt, hinter dem das Initialisierungsmakro hinterlegt ist.
Markiere einen Datenpunkt und klicke dann den Schalter. Sobald du dich mit den Cursortasten links/rechts durch die Datenpunkte bewegst, wird am Datenpunkt ein Shape erstellt, in welchem der X- und der Y-Wert ausgegeben werden. Ich habe es nicht mit der Datenbeschriftung gelöst, weil es sicher auch Diagramme gibt, bei denen standardmäßig die Datenbeschriftung angezeigt werden soll - und das wäre dann ein Problem.
Das Add-In ist selbstverständlich noch nicht ausgereift und möglicherweise fehleranfällig - das solltest du bei Benutzung beachten.
Das Add-In musst du nicht inbedingt installieren sondern kannst es ganz einfach durch Doppelklick starten. Dann steht es dir für die jeweilige Sitzung zur Verfügung.

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wertepaarermittlung aus Diagramm

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread