mit diesem Makro lese ich Bilder aus einem Ordner in eine Excelmappe ein.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iZeile As Long
Dim Pfad As String
On Error Resume Next
For iZeile = 2 To Range("A65536").End(xlUp).Row
Pfad = "d:\bildkatalog\" & Cells(iZeile, 1) & ".jpg"
ActiveSheet.Pictures.Insert(Pfad).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 60.75
' Selection.ShapeRange.Width = 48.75
Selection.ShapeRange.IncrementLeft Cells(iZeile, 6).Left
Selection.ShapeRange.IncrementTop Cells(iZeile, 6).Top
Next iZeile
End Sub
Aber leider erwischt dieses Makro nicht alle Bilder die vorhanden sind.
es scheind an Selection.ShapeRange.IncrementLeft Cells(iZeile, 6).Left oder Selection.ShapeRange.IncrementTop Cells(iZeile, 6).Top zu liegen.
Wenn ich das fehlende Bild ohne Schleife und ohne diese beiden Zeilen einlese, wird das Bild in die Arbeitsmatte eingelesen.
Gruss Peter