Ich habe folgendes Problem:
Ich kopiere aus einer Basisdatei zwei Datentabellen und zwei Tabellen mit jeweils einen Diagramm. Da sich die Basisdatei auf einen anderen Laufwerk befindet verliert Excel jedoch alle Bezüge zum Diagramm.
Nun wollte ich einfach die beiden Diagramme als Bild kopieren, da diese nicht weiter bearbeitet _
werden müssen - anbei mein Code dazu (inkl. der Kopie der Basisdatei falls das Problem doch _
hier liegt):
Sub Kopie_DW()
Dim tmp, DINKW As String
tmp = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
DINKW = ((Date - 7 - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1 & "_" & Year(Date)
Sheets(Array("Tabelle 1", "Tabelle 2", "Diagr.1", "Diagr.2")).Copy
With ActiveWorkbook
.SaveAs Filename:="C:\Test\Test KW " _
& DINKW & " " & Format(Date, "DD.MM.YYYY") & ".xlsx"
Sheets("Diagr. 1").Activate
Dim picDiaObjekt As Picture
ActiveSheet.ChartObjects(1).Copy
Set picDiaObjekt = ActiveSheet.Pictures.Paste
.Close
End With
End Sub
Es erscheint jedoch diese Fehlermeldung:
Anwendungs- oder Objektdefinierter Fehler
Kann mir diesbezüglich jemand weiterhelfen?
Danke schon im Voraus!