Guten Tag

Ich habe ein VBA-Skript, mit welchem ich in einer Briefvorlage den Absender und die Unterschreibenden im Brief einfügen kann (via Auswahlliste). Die Dateien (Namen und Funktion der Mitarbeitenden) sind in einer Excel-Datei abgelegt. Das Skript fügt den Namen und die Funktion jeweils bei Textmarken in Word ein.

Nun würde ich gerne in einer weiteren Zelle in Word die Unterschriften der Mitarbeitenden hinterlegen (oder den Pfad zu einem Ordner mit den verschiedenen .png) und nun mit der Ausgabe von Name und Funktion auch noch das Bild (Unterschrift) an einer neuen Textmarke in Word ausgeben.

Hat mir irgendjemand eine Idee, welcher Befehl mir das ausführen kann?

Aktuell lautet der funktionierende Codeausschnitt wie folgt:

Private Sub CommandButton1_Click()
        Dim oExcelApp As Object
        Dim oExcelWorkbook As Object
        Dim lZeile As Long
  
      If ListBox1.ListIndex >= 0 Then
      
       
          Set oExcelApp = CreateObject("Excel.Application")
          Set oExcelWorkbook = oExcelApp.Workbooks.Open(sAdressDatei)
      
          lZeile = 2
          With oExcelWorkbook.sheets(sTabellenblatt)
              Do While .Cells(lZeile, 1) <> ""
                
                  If ListBox1.Text = CStr(.Cells(lZeile, 2).Value) Then
                      'Eintrag gefunden, Textmarken füllen
                      ActiveDocument.Bookmarks("Absender_Name").Range.Text = _
                          CStr(.Cells(lZeile, 3).Value)
                      ActiveDocument.Bookmarks("Absender_Geschlecht").Range.Text = _
                          CStr(.Cells(lZeile, 4).Value)
                      ActiveDocument.Bookmarks("Absender_Funktion").Range.Text = _
                          CStr(.Cells(lZeile, 5).Value)
                   
                  Exit Do
                  End If
                  lZeile = lZeile + 1
              Loop
          End With
         
          oExcelWorkbook.Close False
          oExcelApp.Quit
      
      Else
          MsgBox "Bitte wählen Sie einen Eintrag aus der Liste aus!", _
              vbInformation + vbOKOnly, "HINWEIS!"
          Exit Sub
      End If

    Set oExcelWorkbook = Nothing
    Set oExcelApp = Nothing
    Unload Me
End Sub

Kurz: Gibt es einen Befehl, der nach

  ActiveDocument.Bookmarks("Absender_Funktion").Range.Text = _
                          CStr(.Cells(lZeile, 5).Value))

eingefügt werden kann und aus Zelle 6 der Exceltabelle die Unterschrift abholt?

Vielen Dank für allfällige Hilfe.

Joshuah