Hallo zusammen,

ich habe derzeit ein kleines Problem mit dem automatischen einfügen von Bildern.

Ich übergebe per Makro (wie nachfolgend) Daten aus einer Exceltabelle per Textmarken über Word in ein PDF.

Sub PDFerstellen()

Dim lobjWord As Object, lwrdDoc As Object, bWordVorhanden As Boolean
Dim strPDFName As String, sBrief As String, TPos As String

 Range(Selection, ActiveCell.EntireRow).Select

strPDFName = "Testdatei" & ActiveCell.Offset(0, 1) & ".pdf"



sBrief = "Test.doc"


TPos = ActiveCell.Address

    Set lobjWord = CreateObject("Word.Application")
    Set lwrdDoc = lobjWord.Documents.Add(sBrief)
   

    Range(Selection, ActiveCell.EntireRow).Select
   

    On Error Resume Next
   

    With lwrdDoc
    
.Bookmarks("SpalteA").Range.Text = (ActiveCell.Offset(0, 0))
.Bookmarks("SpalteB").Range.Text = (ActiveCell.Offset(0, 1))
.Bookmarks("SpalteC").Range.Text = (ActiveCell.Offset(0, 2))
.Bookmarks("SpalteD").Range.Text = (ActiveCell.Offset(0, 3))
.Bookmarks("SpalteE").Range.Text = (ActiveCell.Offset(0, 4))
.Bookmarks("SpalteF").Range.Text = (ActiveCell.Offset(0, 5))
.Bookmarks("SpalteG").Range.Text = (ActiveCell.Offset(0, 6))
.Bookmarks("SpalteH").Range.Text = (ActiveCell.Offset(0, 7))
.Bookmarks("SpalteI").Range.Text = (ActiveCell.Offset(0, 8))
.Bookmarks("SpalteJ").Range.Text = (ActiveCell.Offset(0, 9))
.Bookmarks("SpalteK").Range.Text = (ActiveCell.Offset(0, 10))
.Bookmarks("SpalteL").Range.Text = (ActiveCell.Offset(0, 11))
.Bookmarks("SpalteM").Range.Text = (ActiveCell.Offset(0, 12))
.Bookmarks("SpalteN").Range.Text = (ActiveCell.Offset(0, 13))
.Bookmarks("SpalteO").Range.Text = (ActiveCell.Offset(0, 14))
.Bookmarks("SpalteP").Range.Text = (ActiveCell.Offset(0, 15))
.Bookmarks("SpalteQ").Range.Text = (ActiveCell.Offset(0, 16))
.Bookmarks("SpalteR").Range.Text = (ActiveCell.Offset(0, 17))
.Bookmarks("SpalteS").Range.Text = (ActiveCell.Offset(0, 18))
.Bookmarks("SpalteT").Range.Text = (ActiveCell.Offset(0, 19))
.Bookmarks("SpalteU").Range.Text = (ActiveCell.Offset(0, 20))
.Bookmarks("SpalteV").Range.Text = (ActiveCell.Offset(0, 21))
.Bookmarks("SpalteW").Range.Text = (ActiveCell.Offset(0, 22))
.Bookmarks("SpalteX").Range.Text = (ActiveCell.Offset(0, 23))
.Bookmarks("SpalteY").Range.Text = (ActiveCell.Offset(0, 24))
.Bookmarks("SpalteZ").Range.Text = (ActiveCell.Offset(0, 25))
                

        .PrintOut Copies:=0
       

        .ExportAsFixedFormat OutputFileName:=strPDFName, _
         ExportFormat:=17, _
         OpenAfterExport:=True
        .Close = False

       
        
        .Saved = True
       
    
    End With

  
    Set lwrdDoc = Nothing
    Set lobjWord = Nothing

Range(TPos).Select
End Sub

Nun habe ich SpalteP auch Dateinamen der zugehörigen Bilder gespeichert. Und möchte diese ebenfalls wie Texte ins PDF übertragen und als Bild anzeigen lassen nicht als Link.

Dazu hatte ich im Worddokukment folgende Feldfunktion gestellt - {INCLUDEPICTURE { REF Textmarke } } - funktioniert nur leider nicht.

Habt ihr eine Idee wie ich das nun realisert bekomme, dass das Bild im PDF angezeigt wird?

Würde mich echt freuen das Problem gelöst zu bekommen. Freue mich auf Anregungen von den Experten hier. :)

Grüße Nascituruz