Bild in Userform einfügen
25.09.2013 14:02:04
Karl-Heinz
als Anfänger habe ich mir zur Anzeige von Bildern in einer Userform ein Makro gebastelt. Es funktioniert auch. Nur folgende Erweiterungen gelingen mir nicht:
1.) Der letzte Ordnername (hier im Beispiel "8008") unter verz soll nicht fest sondern variabel aus einer Excel-Zelle (z.B. Range ("c3") abgeleitet werden.
2.) Aus dem dann gewählten Ordner sollen nur die Bilder mit der Endung "*.jpg" aufgerufen werden. Wer kann mir für diese Ergänzung helfen?
Gruß
Karl-Heinz
Private Sub SpinButton2_Change()
Dim verz As String
Dim Fotos() As Variant
Dim i_zaehler As Long
Dim i_zaehler2 As Long
Dim fs As Object
Dim objDatei As Object
With Filialfotos
.SpinButton1.Min = 1
verz = "c:\filialen\Filialfotos\8008\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Folder = fs.Getfolder(verz)
i_zaehler = Folder.Files.Count
.SpinButton2.Max = i_zaehler
ReDim Fotos(i_zaehler)
For Each objDatei In Folder.Files
Fotos(i_zaehler2) = verz & objDatei.Name
i_zaehler2 = i_zaehler2 + 1
Next
TextBox1.Text = SpinButton2.Value
Label1.Caption = Fotos(SpinButton2.Value)
Image1.Picture = LoadPicture(Fotos(SpinButton2.Value))
End With
End Sub