mit
Dim rngSpalte As Range
Set rngSpalte = Range("D2:D2") 'anpassen!
For Each Zelle In rngSpalte
If Zelle = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Zelle, Address:="http://server/uploads/" & Zelle.Value
Next
Dim oHL As Hyperlink
With ActiveSheet
For Each oHL In .Hyperlinks
With .Pictures.Insert(oHL.Address)
.Left = oHL.Range.Left
.Top = oHL.Range.Top
.Height = 141.7322834646
bekomme ich das Bild angezeigt, es muss aber in der Zelle gespeichert sein es darf dort nicht als Link stehen, da ich es dann in Word einfügen muss!
Beste Gruße