letzten Pfad öffnen
Ingo
Über einen Button öffne ich den Dialog "öffnen". Hier gebe ich jetzt einen Pfad ein (.jpg) den ich dann als Hyperlink in meinem Dokument übernehme.
Wie kann ich es erreichen das beim weiteren öffnen des Dialoges "öffnen" der zuvor gewählte Pfad angezeigt wird. Dies würde mich bei mehrmaligen Aufruf die lästige Pfadeingabe minimieren.
Hier mein Code:
Private Sub CommandButton1_Click()
'vordefinierten Pfad aufrufen
ChDir "U:\e\Bilder_BMW\" 'Hier gibt es mehrere Unterordner.
'Nach der ersten Vorgabe möchte ich den Pfad bis zum Unterordner übernehmen.
' Dateinamen an die Variable Var übergeben
Var = Application.GetOpenFilename()
' Variable als PFad für Hyperlink in der aktiven Zelle übernehmen
If Var = False Then Exit Sub
ActiveCell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Var, TextToDisplay:=Var
End Sub
Anzeige