Sie haben hier zwei grundlegende Fragen: Rendern von Bildern in Excel und relative Pfade.
Bilder in Excel rendern
Es gibt ein Skript, um dies auf SO zu erreichen :
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
Relative Pfade
Ich kenne keine Möglichkeit, relative Pfade in einem Excel-Dokument anzugeben, aber dafür gibt es eine einfache Problemumgehung. Erstellen Sie einen Ordner für Ihr Excel-Dokument und alle unterstützenden Bilder, und halten Sie sie zusammen. Wenn Sie dies an einen anderen Speicherort verschieben müssen, verschieben Sie einfach den gesamten Ordner. Dies macht es auch leicht, sich zu verschließen und an andere zu senden.