VisualBasic Bild aus Explorer in Userform

[Cirox]

Hallo liebe ComputerBase-Community,

ich versuche im Moment einen Code zu schreiben, der es mir ermöglicht, dass ich in einer UserForm einen Button drücke, der dann einen bestimmten Ordner auf meinem PC öffnet. In diesem Ordner sind mehrere Bilder und ich möchte eines dieser Bilder auswählen, welches dann mit dem Öffnen in das Image Feld der UserForm eingefügt wird.

Mein bisheriger Code:

Private Sub Cmd_OK_Click()

Dim ImgVar As Variant

ImgVar = Application.GetOpenFilename("Fotos(*.jpg), *.jpg")

If ImgVar = False Then Exit Sub
Me.Img_Foto.Picture = LoadPicture(Filename:=ImgVar)
Me.Img_Foto.PictureSizeMode = fmPictureSizeModeZoom

End Sub

Der Code funktioniert auch einwandfrei. Das einzige Problem ist, dass ich jedes mal das Verzeichnis mit den Bildern manuell suchen muss. Ich würde gerne, dass ich direkt zu einem Verzeichnis (Bsp C:\temp\Bilder\) geführt werde und da nur noch die Bilder auswählen muss.

 

[Bagbag]

Schau dir mal OpenFileDialog an, da kannst du "RestoreDirectory" auf True setzen, dann speichert es, wo die letzte Auswahl war. Oder wenn du es wirklich Hardcoden willst, kannst du InitialDirectory setzen.

 

[miac]

Benutze das File Dialog Objekt und setze den initialen Pfad.

Etwa so:
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "Z:"
fd.Show

Filter und sowas kannst Du ja dann selber hinzufügen.

 

[Cirox]

Riesen Dank für die schnelle Hilfe

Hat funktioniert!