Hallo,
ich nutze für die Artikelverwaltung eine Userform. Diese enthält eine Textbox und ein Image-Element.
Per Doppelklick auf das Bild, öffnet sich der Dialog: Datei suchen.
Dann kann der User eine Datei auswählen. Der Pfad der Datei wird in die Textbox gelesen und das Bild angezeigt.
... Codezeilen-Ausschnitt
' Dialog Dateipfad öffnen aufrufen
Set fd = Application.FileDialog(msoFileDialogFilePicker)
On Error Resume Next
With fd
.InitialFileName = ActiveWorkbook.Path 'Start-Pfad
.Show
.AllowMultiSelect = False
Pfad = .SelectedItems(1)
End With
' Bildpfad aufnehmen (Textbox unter Bild)
objTPPfad.Text = Pfad
' Bilddatai einlesen, bzw. anzeigen
...
Frage: Wie kann ich bei dem Dialog den zulässigen Datei-Typ auf *.jpg, *.gif, *.pdf einschränken ?
Gruß und Danke
Kay