Dateipfad variabel Userform
18.12.2022 18:08:12
Jörg
Ich möchte in eine Userform Bilder einfügen. Für den Zugriff auf einen Ordner klappt das auch mit dem Code, den ich aus einem Tutorial habe:
Option Explicit
Const Pfad As String = "E:\Monitoring\Fotos\Fotogalerie\Noctuidae\"
Private Sub ListBox1_Click()
Image1.Picture = LoadPicture(Pfad & ListBox1.List(ListBox1.ListIndex) & ".jpg")
End Sub
Private Sub UserForm_Initialize()
Dim Aktdat As String
'ListBox1.RowSource = "Tabelle6!B2:B100"
Aktdat = Dir(Pfad & "*.jpg")
Image1.PictureSizeMode = fmPictureSizeModeStretch
While Aktdat ""
ListBox1.AddItem Left(Aktdat, Len(Aktdat) - 4)
Aktdat = Dir
Wend
ListBox1.Selected(0) = True
End Sub
In der Userform hab ich auch eine Combobox, in der die Namen der einzelnen Ordner stehen (im Beispiel: Noctuidae).
Nun möchte ich in der Combobox einen Ordner auswählen und damit den Pfad bestimmen. Die Constante müßte sicher um den letzten Begriff gekürzt werden bzw. ganz weg.
VG Jörg