Der Ordner wurde im letzten Code angegeben. Die Zelle stehen im Code unter der Tabelle
Dia Ausgabe Zelle wird in ähnlicher Zeile angegweben.
ActiveSheet.Shapes.AddPicture(StBild, True, True, _
RaZelle.Offset(0, 0).Left, RaZelle.Offset(1, 0).Top, _
LoBreite, LoHoehe).Name = "Pic " & _
RaZelle.Address(False, False)
Ich sehe nicht welche Datei Du benutzt. (Zeilen,Spalte) von der Eingabezelle.
Gruß Hajo