Image mit SpinButton auswählen
Kev
habe einwenig gegoogelt und folgenden Code gefunden. Wäre dankbar wenn mir jemand bei dem Code helfen könnte.
Bekomme nur das 1 Bild rein, sind aber ca. 1000 Bilder.
Und im TexBox sollte die Bezeichnung vom Bild stehen, und im Label1 soll es ab der Zahl 1 gezählt werden.
Hier mal die Beispielmappe
https://www.herber.de/bbs/user/73977.xls
Und das ist der folgende Code:
Private Sub SpinButton1_Change()
Dim verz As String
Dim str As String
Dim Fotos() As Variant
Dim i_zaehler As Long
Dim i_zaehler2 As Long
Dim fs As Object
Dim Folder
Dim objDatei As Object
With UserForm1
.SpinButton1.Min = 0
'verz = InputBox("Please enter the image directory: ")
'verz = verz & "Issue" & ToDo.TextBox9.Value 'Issue No.
verz = "H:\Test\"
' Ermittelt die Anzahl der Bilder im Verzeichnis
Set fs = CreateObject("Scripting.FileSystemObject")
Set Folder = fs.Getfolder(verz)
For Each objDatei In Folder.Files
i_zaehler = Folder.Files.Count
Next
.SpinButton1.Max = i_zaehler
'Lesen der Fotos in ein Array
ReDim Fotos(i_zaehler)
For Each objDatei In Folder.Files
Fotos(i_zaehler2) = verz & objDatei.Name
Next
'Lesen der Fotos in ein Array
'Ausgabe des Spinbutton in ein Textfeld
'Ausgabe der Labeltextes
'Laden des Bildes
.TextBox1.Text = .SpinButton1.Value
.Label1.Caption = Fotos(.SpinButton1.Value)
'MsgBox Fotos(.SpinButton1.Value) ' hier liegt das Problem, das Array bleibt leer!?
.Image1.Picture = LoadPicture(Fotos(.SpinButton1.Value))
End With
End Sub
Gruß Kevin