Link images to their names at table cells

[Ethen5155]

Hello dears, hope you are all doing safe and sound!

i'm trying to find a way to insert images from links folder to word table and to be aligned with their names

Before:



After:




i'm also attaching sample files for before and after along with links folder



any help will be highly appreciated here

Thanks in advance


Cross-posting link

[Charles Kenyon]

I suspect you wanted some images for before and after in your post. You can edit it. It would be the same process you used for your sample.zip.
How to attach a screenshot or file in this forum.

You could then place your insertion point in the post to position the images.

[Ethen5155]

sorry but i didn't get your point,

i have already inserted screenshots at the post to explain my request and the sample files are for testing the code to be sure it works well before posting it here.

[Charles Kenyon]

I'm not understanding the point of Before and After in your post if not to show images.

i'm trying to find a way to insert images from links folder to word table and to be aligned with their names

Before:



After:




i'm also attaching sample files for before and after along with links folder

[Ethen5155]

Thanks to José Augusto

Solved

Sub LinkImagesToTable()
'
Dim File_Path As String, Image_Path As String, Image_Name As String, Image_Aux As String, Row_i As Integer
On Error Resume Next
File_Path = ActiveDocument.Path
Image_Path = File_Path & "\Links"
    For Row_i = 2 To ActiveDocument.Tables(1).Rows.Count
        Image_Aux = ActiveDocument.Tables(1).Cell(Row_i, 1).Range
        Image_Name = Trim(Left(Image_Aux, Len(Image_Aux) - 2) & ".jpg")
        ActiveDocument.Tables(1).Cell(Row_i, 2).Select
        Selection.Range = ""
        ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
            Image_Path & "\" & Image_Name, _
            LinkToFile:=True, SaveWithDocument:=True).WrapFormat.Type = wdWrapSquare
        DoEvents
    Next Row_i
    For Row_i = 1 To ActiveDocument.Shapes.Count
        With ActiveDocument.Shapes(Row_i)
            .RelativeHorizontalPosition = 2
            .RelativeVerticalPosition = 1
            .Top = 0
        End With
        DoEvents
    Next Row_i
End Sub