Hallo liebe Leute!
Möchte gerne aus der einer Zelle im Tabellenblatt den gewünschten Pfad angeben, indem ich die Bilder auswählen kann.
Wie muss da der richtige Code lauten, wenn ich den Pfad in der Zelle "B7" stehen habe?
Kann mir wer helfen?
Vielen Dank
Private Sub Test_Click()
'Bild einfügen
Dim varRetVal As Variant
Dim n As Integer

Dim pic
Dim X_ As Integer, Y_ As Integer
ChDrive ("D:\")
ChDir ("D:\Eigene Dateien\")
varRetVal = Application.GetOpenFilename( _
FileFilter:="Bild (*.jpg), *.jpg", _
Title:="Bild einfügen", _
MultiSelect:=True)