Wir müssen sehr häufig Excel-Dateien mit vielen Bildern versenden. Dafür gibt es ein Makro:
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "P:\bilder\excel\"
For Wiederholungen = 2 To Range("L65536").End(xlUp).Row
Cells(Wiederholungen, 21).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub
Das hat in der (ur-) alten Excel-Version prima funktioniert, aber nun sind die Bilder nur verknüpft und können vom Empfänger nicht mehr angesehen werden. Ich habe schon viel gesucht, aber mit der neuesten Version arbeitet offensichtlich niemand?
VIELEN DANK im Voraus.
