Photo Exporting Macro in Excel

[nbondelli]

I'm creating an expense database for real estate apartments at an appraisal company. I want to create a macro that exports a photo for each property into a word doc or pdf. Each property is a different row, and I would put the photo into the last column of each row. It's a large database and we will be filtering the information first to find relevant properties, so it needs to be dynamic as well. Is there any way to put each photo into those cells and create the ability to export it to such a document?

 

[Worf]

Hello and welcome to the Board
The following example repositions a picture and exports it to Word.
Tell me what modifications are needed on this code:

Sub CreateWordTable()       ' this is an Excel macro
Dim wap As Word.Application, wdoc As Word.Document
Dim myRange As Word.Range, tbl As Word.Table
With Worksheets("Sheet1")
    .Shapes("Picture 1").Left = Range("k4").Left    ' reposition picture
    .Shapes("Picture 1").Copy
End With
Set wap = CreateObject("Word.Application")
wap.Visible = True
 
Set wdoc = wap.Documents.Add
With wdoc
    Set myRange = .Range(Start:=0, End:=0)
    Set tbl = .Tables.Add(Range:=myRange, numrows:=4, numcolumns:=3)
End With
    tbl.Rows(2).Cells(1).Range.Paste
    wdoc.SaveAs ThisWorkbook.Path & "\table1.doc"
    wap.Quit False
    Set wap = Nothing
    Set wdoc = Nothing
     
End Sub