ich versuch seit einiger Zeit Diagramme via VBA zu erstellen. Auch meine Internetrecherchen haben mir nicht weitergeholfen.
Charts.add gibt mir nicht die Möglichkeit Position, Höhe und Breite anzugeben.
Via CahrtObjects habe ich das Problem, dass ich dann nicht mehr das Diagramm aktivieren kann, da ich den Index des gerade erzeugten Diagrammfläche nicht weiß (normaler Weise beim ersten Mal 1 , aber bei mir ist es irgendwo zwischen 20-30.
Hier mein bisherige Code. In der Zeile mit den Fragezeichen brauch ich die Anweisung wie ich das Aktive Sheet ansprechen kann. Bin mit meinem Latein am Ende, habe alles probiert, was ich aus anderen VBA Projekten kenne.
Set ch = ActiveSheet.ChartObjects.Add(1, 1, 800, 400)
?
ActiveSheet.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Auswertung!R4C2:R22C2"
ActiveChart.SeriesCollection(1).Values = "=Auswertung!R4C7:R22C7"
ActiveChart.SeriesCollection(1).Name = "=Auswertung!R3C7"