Habe folgende Datei hochgeladen!
https://www.herber.de/bbs/user/138726.xlsm
Folgendes Problem:
Es wird per Code für jede Zeile einer Tabelle eine Grafik erzeugt, die dann als Image in ein anderes Tabellenblatt kopiert werden soll.
Also Grafik für erste Zeile erstellen, in das andere Blatt kopieren, ursprüngliche Grafik löschen, neue Grafik für 2. Zeile erstellen ...
Es soll dann ein Excelblatt entstehen mit den Grafiken in zweispaltiger Anordnung.
NUR:
Es werden die Grafiken erzeugt, aber immer nur die erste wird kopiert
'=================== akt. Grafik kopieren
Dim ObjShape As Object
Sheets("Zwischenspeicherblatt").ChartObjects(1).Copy
Set ObjShape = Sheets("Grafik_einzeln_Sus").Pictures.Paste
Sheets("Zwischenspeicherblatt").Activate
Sheets("Zwischenspeicherblatt").Shape.Select
ActiveChart.Parent.Delete
Das alles läuft in einer For Next Schleife ab
So kopiere ich die Grafiken ...
Kann mir jemand da helfen