Pfad aus der Zelle herausnehmen
07.09.2005 12:53:19
Franz
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)