У вас есть 2 основных вопроса: рендеринг изображений в Excel и относительные пути.
Рендеринг изображений в Excel
Для этого есть скрипт на SO :
Dim url_column As Range Dim image_column As Range Set url_column = Worksheets(1).UsedRange.Columns("A") Set image_column = Worksheets(1).UsedRange.Columns("B") Dim i As Long For i = 1 To url_column.Cells.Count With image_column.Worksheet.Pictures.Insert(url_column.Cells(i).Value) .Left = image_column.Cells(i).Left .Top = image_column.Cells(i).Top image_column.Cells(i).EntireRow.RowHeight = .Height End With Next
Относительные пути
Я не знаю, как указать относительные пути в документе Excel, но для этого есть простой обходной путь. Создайте папку для вашего документа Excel и всех сопутствующих изображений и храните их вместе. Если вам нужно переместить это в другое место, вы просто переместите всю папку. Это также позволяет легко архивировать и отправлять другим.