Office: Excel Range als Bild in Word einfügen

Hallo,

ich möchte gerne per Makro in einem Wordtemplate Mustergrafiken, die als Platzhalter dienen durch Bereiche in meiner Exceldatei ersetzen, die ich als Bild einfüge. Per Hand mache ich das normalerweise über copy-paste und als Grafik einfügen (A).
Ich habe nun für das Makro schon diverse Methoden ausprobiert.

Range(Rangename).Copy
mit
Word.Selection.PasteAndFormat (wdChartPicture)
führt dazu, dass in der Word-Datei das eingefügte Bild blinkt und der Code nicht weiterläuft. Ggf. wartet VBA da auf eine Nutzereingabe. Diese finde ich aber nicht.

Stattdessen
Word.Selection.PasteSpecial DataType:=wdPasteMetafilePicture
führt dazu, dass die Bilder nicht mehr als InlineShapes, sondern als shapes hinterlegt sind (die Einbettung ändert sich auf vor den Text, sodass mehrere Bilder übereinander liegen. Komischerweise betraf die Veränderung selbst beim schrittweisen Ausführen im Debugger in nur dieser einen Zeile mehrere Bilder in Word.

Daraufhin habe ich versucht mit der .copyPicture Methode zu arbeiten. Diese funktioniert allerdings nur unzuverlässig. Ich habe mit folgendem Code versucht, ein try and catch nazubauen, sodass ich das kopieren mehrfach versuchen kann, da laut Forenrecherche eine Schleife mit mehrmaligem Ausführen des copyPicture Befehls, die einzige Lösung zu sein scheint.

Dim retry_count As Integer

Try_Copy:
On Error GoTo 0
AppActivate ThisWorkbook.Name
Application.CutCopyMode = False
Application.Wait (Now + TimeValue("00:00:01"))
On Error GoTo Catch
DoEvents
Blatt.Range(Rangename).CopyPicture Appearance:=xlScreen, Format:=xlPicture
DoEvents
GoTo Continue

Catch:
retry_count = retry_count + 1
If retry_count <= 10 Then
Resume Try_Copy
Else
MsgBox "Grafik: " & Rangename & "auf Blatt " & Blatt.Name & " konnte nicht kopiert werden und wurde nicht ersetzt."
Exit Sub
End If

Continue:
On Error GoTo 0

'weiterer Code, um in Word das Bild einzufügen mit .Copy

Das führte auch nur zu einer geringfügigen Verbesserung, etwa die Hälfte der Bilder wurde eingefügt, die anderen liefen bis zum retry_count Limit.

Dann habe ich versucht xlScreen durch xlPrinter zu ersetzen. Das führte dazu, dass zwar alle Bilder eingefügt wurden, allerdings hat sich die Auflösung verändert, sodass die Zellumrandungen teils dicker oder schmaler wurden.

Langsam gehen mir die Ideen aus und auf Foren und mit ChatGPT komme ich auch nicht mehr weiter. Hat jemand möglicherweise noch eine Idee oder eigene Erfahrungen, wie man das umsetzen kann?

 

Gelöst: Die erste Variante PasteAndFormat (wdChartPicture), die auch vom Makrorekorder so aufgezeichnet wird, wenn man ein Bild per Hand einfügt, funktioniert. Das Problem bei mir war, dass im Template durch das Einfügen wahrscheinlich ein dynamisches Feld ausgelöst wurde, dass eine Eingabe erfordert, aber nicht angezeigt wurde.