Hallo Berpre,
mit dem obigen Code werden die Bilder in der linken oberen Ecke ausgerichtet, so wie Du es nach Deiner AW5 möchtest. Daher verstehe ich Deine Frage nicht.
Nachfolgender Code löscht vorher das Bild wieder bevor dieses wieder eingefügt wird. Tausche ihn gegen den alten Code aus.
Option Explicit
Sub Bilder_einfügen()
Dim strPfad As String, lngWiederholungen As Long
Dim picBild As Picture
On Error Resume Next
strPfad = "J:\Prospekt_Bilder\"
For lngWiederholungen = 1 To Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
ActiveSheet.Shapes(Cells(lngWiederholungen, 1)).Delete
On Error GoTo 0
Set picBild = ActiveSheet.Pictures.Insert(strPfad & Cells(lngWiederholungen, 1) & ".jpg")
With picBild
.Name = Cells(lngWiederholungen, 1)
.Top = Cells(lngWiederholungen, 6).Top
.Left = Cells(lngWiederholungen, 6).Left
.Height = 40
End With
Next lngWiederholungen
Set picBild = Nothing
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]