Hallo,
ich bin noch relativ wenig Erfahrung mit VBA und bin echt dankbar über die Foren und die vielen Lösungen im Internet. Ich hab ein Problem mit einem Code den ich geschrieben habe und weiß nicht so ganz wo da mein Fehler liegt. Und zwar möchte ich die Datenquelle für eine Grafik ändern, dann die Grafik in Word kopieren und speichern. Das Ganze soll dann immer wiederholt werden mit neuen Datenquellen. Die datenquelle sind Zahlenwerte auf einem anderen Sheet. Ich dachte, das wäre der einfachere Weg als immer neue Diagramme zu erstellen. Mein Code steht unten. Der Fehler tritt auf bei der Zeile mit SeriesCollection (Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler). Das mit dem in Word kopieren hat an anderer Stelle schon funktioniert, wird also nicht mit dem Problem zu tun haben.
For i = 2 To 90
With Sheets("Monthly Graph")
.SeriesCollection(1).Values = Sheets("Support Meteo Month").Range(Cells(2, i), Cells(32, i))
.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
objWord.Selection.Paste
End With
Next
Folgender Code funktioniert:
Windows("Tool.xlsm").Activate
Sheets("Monthly Graph").Activate
ActiveChart.SeriesCollection(1).Values = "='Support Meteo Month'!$B$2:$B$32"
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
objWord.Selection.Paste
Das hab ich über Makro Aufnehmen herausgefunden. Allerdings schaff ich es nicht, dazu eine For Schleife einzubauen. Ich habs mit For i = 66 To 68 und Chr(i) probiert, ging aber nicht.
Für Hilfe wäre ich sehr dankbar :-)
Grüße