Auswahl Diagrammblatt für aktivierten Datenpunkt
30.09.2019 17:40:48
Beverly
Hi Thomas,
da es sich um Diagrammblätter handelt ist der Aufwand nicht ganz so hoch als wenn es eingebettete Diagrammobjekte wären, denn ein Diagrammblatt hat (wie auch Tabellenblätter) bereits Ereignisprozeduren integriert, die man verwenden kann. Code im Diagrammblatt "Zusammenfassung":
Option Explicit
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _
As Long)
Dim ElementID As Long ' Variable für das Diagrammelement
Dim Arg1 As Long ' Variable für die Datenreihe
Dim Arg2 As Long ' Variable für die Nummer des Datenpunktes in der Datenreihe
Dim chrTab As Chart
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
With Diagramm1
' die Daten des aktivierten Elements ermitteln
.GetChartElement x, y, ElementID, Arg1, Arg2
' markiertes Diagrammelement ist eine Datenreihe
If ElementID = 3 Then
' es wurde ein einzelner Datenpunkt markiert
If Arg2 -1 Then
If Arg1 And Arg2 0 Then
For Each chrTab In Charts
If chrTab.Name = Format(CStr(Arg2 / 2), "#0.0") Then
chrTab.Activate
Exit For
End If
Next chrTab
End If
End If
End If
End With
End Sub
Das Diagramm selbst muss aktiviert sein damit der Code ausgelöst werden kann, wenn auf einen Datenpunkt geklickt wird.
https://www.herber.de/bbs/user/132297.xlsm