Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

FIledialog unter O2k

FIledialog unter O2k
11.12.2004 09:41:51
Justus
Moin, könnte mir bitte mal jemand sagen, wie folgebnder Code für Office2000 umzusetzen ist?
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FIledialog unter O2k
Tobias
Hallo Justus,
Leider ist es unter Office 2000 nicht so luxuriös, Es kann z.B. kein Text für den 'Open'
Button gesetzt werden auch '.InitialView' kann nicht ausgewählt werden.

Sub Bildsuchen()
Dim varBilder As Variant
ChDir (ThisWorkbook.Path)
varBilder = Application.GetOpenFilename( _
FileFilter:="Bilder, *.gif; *.jpg; *.jpeg; *.bmp, Alle, *.*", _
FilterIndex:=1, _
Title:="Meine Bilderdatenbank der Züge", _
MultiSelect:=False)
If varBilder <> False Then
ActiveCell.Value = varBilder
Else
MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
End If
End Sub

Gruss
Tobias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige