Hallo,
ich möchte aus einer Excel Datei, Tabellen und Diagramme in eine Word Datei kopieren.
Ich habe beispielweise einen Bereich für die Tabelle von A20 bis D20. Des Weiteren habe ich einem anderen Tabellenblatt mehrere Diagramme die ebenfalls in die gleiche Wort Datei kopiert werden sollen. Nun habe ich folgendes Problem, es wird nichts kopiert. Wordvoralge mit den gesetzten Textmarken öffnet sich, jedoch wird einfach nichts eingefügt. Einzelne Zellen lassen sich kopieren, jedoch Bereiche wie z.B A30:E30 nicht und Diagramme werden ebenfalls nicht übernommen.
Mein Quellcode für diese Funktion lautet:
myWord.ActiveDocument.Bookmarks("a1").Range.Text = Worksheets("Tabelle1").Range("A:E30").CopyPicture
myWord.ActiveDocument.Bookmarks("a2").Range.Text = Worksheets("Tabelle2").Range("Diagramm 5")
myWord.ActiveDocument.Bookmarks("a3").Range.Text = Worksheets("Tabelle2").Range("Diagramm 6")
Vielen Dank im Vorraus
|