Frage zur Aktivierung von Makros
05.04.2021 13:06:42
Makros
wie vom Chef gewünscht nochmal meine Frage in einem neuen Thread:
Ich wollte verschiedene Makros starten, indem ich auf einzelne Elemente eines kombinierten Diagramms klicke, Nepumuk war so nett und hat dazu ein Makro geschrieben:
Private Sub mobjChart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, _
ByVal y As Long)
Dim IDNumber As XlChartItem
Dim IDNumber2 As XlChartItem
Dim Argument1 As Long, Argument2 As Long
If Button = vbKeyLButton Then
Call Chart.GetChartElement(x, y, IDNumber, Argument1, Argument2)
If IDNumber = xlSeries Then
Call ActiveCell.Select
Select Case Argument2
Case 12
Call Makro1
End Select
Soweit funktioniert alles, in obigem Makro geht es bei Argument 1 um die FullSeriesCollection und bei Argument 2 um die einzelnen points im Diagramm, also z.B.
FullSeriesCollection(1).points(1)
usw.
Mein Problem ist nun, dass es zB den points(1) mehrfach gibt (einmal als FullSeriesCollection(1).points(1) und als FullSeriesCollection(2).points(1)). Dementsprechend startet immer das selbe Makro, sobald ich irgendeinen points(1) anklicke.
Ist es möglich, im Makro weiter zu unterteilen, also dass sowohl nach Argument 1 als auch nach Argument 2 unterschieden wird:
Also bei
FullSeriesCollection(1).points(1) -> Makro 1
FullSeriesCollection(2).points(1) -> Makro 2
usw.