FIledialog unter O2k
11.12.2004 09:41:51
Justus
Mit API und dem Kram habe ich echt keinen Schimmer :-(
Sub Bildsuchen()
Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
'Darf der User mehrere Dateien auswählen - Nein
.AllowMultiSelect = False
'Name des Buttons des Dialogs
.ButtonName = "Bild auswählen"
'FIlter - welche Dateien darf er auswählen
.Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
.Filters.Add "Alle", "*.*"
.FilterIndex = 0
'Welches Verzeichnis soll geöffnet werden
.InitialFileName = ThisWorkbook.path
'Anzeige des Dialogs - die Dateien als Details
.InitialView = msoFileDialogViewDetails
'Titel halt
.Title = "Meine Bilderdatenbank der Züge"
End With
If dlg.Show = True Then
'Die ABfrage für den selektierten Eintrag
For Each si In dlg.SelectedItems
If MsgBox("Soll dieses Bild - " & si & " - übernommen werden?", vbYesNo + vbQuestion, "Abfrage...!") = vbYes Then
ActiveCell.Value = Dir(si)
Else
MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
Exit Sub
End If
Next
End If
End Sub
Danke für eure Hilfe
Justus