Hallo,
wenn du die Bilder aus einer Liste einfügen willst, dann brauchst du keinen Filedialog. Der wird ja nur gebraucht, wenn du die Bilder, die eingefügt werden sollen auswählen willst.
Das folgende Makro fügt alle Bilder, die in der Tabelle qryDaten in Spalte A stehen in die Tabelle Blanco in Spalte G ein. Die Bilder werden ab der 1. Zeile und dann 10 Zeilen tiefer eingefügt:
Sub bilder_einfuegen()
Dim arrBilder As Variant
Dim b As Long
'Bilder aus Tabelle qryDaten auslesen
'Pfad mit Bild und Endung steht in Spalte A ab Zeile 2
With Worksheets("qryDaten")
arrBilder = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1))
End With
'Bilder in Tabelle Blanco einfügen
With Worksheets("Blanco")
For b = LBound(arrBilder) To UBound(arrBilder)
'Bild wird in Spalte G der Einfügezeile in Breite 160 und Höhe 120 eingefügt
'ab Zeile 1 in jede 10. Zeile
.Shapes.AddPicture arrBilder(b, 1), msoFalse, msoTrue, Cells(1 + 10 * (b - 1), 7).Left, Cells(1 + 10 * (b - 1), 7).Top, 160, 120
Next b
End With
End Sub
Gruß
M.O.