Geklicktes Chart ermitteln
10.03.2004 12:14:25
David
Diesen Diagrammen übergebe ich folgenden (stark vereinfachten) Code:
Sub Zeigen()
For Each c In ActiveSheet.ChartObjects
ActiveSheet.ChartObjects(c.Name).Activate
If (Diagrammmodus = 1) Then ActiveChart.ChartType = xl3DArea
If (Diagrammmodus = 2) Then ActiveChart.ChartType = xlPyramidBarClustered
If (Diagrammmodus = 3) Then ActiveChart.ChartType = xl3DAreaStacked
Next c
End Sub
Nun würde ich ganz gern nicht den Grafiktyp ALLER Diagramme ändern,
sondern nur den vom angeklickten.
Mit ActiveChart verändert er bei mir aber immer nur das allererste
und nicht das, auf welches geklickt wurde.
Wie kann ich das feststellen?