Tabellenblatt kopieren aber leider ohne Bilder
05.02.2015 12:19:43
sampo0
ich habe ein kleines Problem welches ich leider nicht rekonstruieren kann.
Ich habe mehrere Arbeitsmappen (A,B,C).
In einer "Master" Arbeitsmappe.
In der Master-Mappe gibt es eine Funktion, die alle Tabellenblätter aus den Tabellen A,B,C in eine neue Arbeitsmappe kopiert.
Dies mache ich einfach mit:
Set wsData = Workbooks.Open(fil.path)
wsData.Sheets("Vorderseite").Copy after:=wsNeu.Worksheets(tmpname)
ActiveSheet.name = Left(fil.name, 4) & "1"
ChangePrinter "Adobe PDF*"
ActiveSheet.PageSetup.PrintQuality = 600
wsData.Sheets("Rueckseite").Copy after:=wsNeu.Worksheets(Left(fil.name, 4) & "1")
ActiveSheet.name = Left(fil.name, 4) & "2"
ChangePrinter "Adobe PDF*"
ActiveSheet.PageSetup.PrintQuality = 600
Bei einem Nutzer ist es jetzt vorgekommen das keines der Bilder, die in den Tabellen sind, mitkopiert wurden.
Ich verstehe nicht wie es dazu kommen kann, da ich ja im Grunde nur .copy mache.
Die Bilder wurden vorher mit "Set shpNeu = wsVorderseite.Pictures.Insert(pathToJpg)" hinzugefügt.
Ich habe jetzt leider überhaupt keinen Ansatz wie ich diesen Fehler(wenn es denn einer ist) beheben kann, da ich es nicht schaffe, das die Funktion die Bilder NICHT mitkopiert oder auch nur einen google-Suchansatz der mich weiterbringen könnte.
mfg sampo0