Zufallsbild in Userform
09.07.2013 09:05:18
Tobschr
ich habe da ein kleines Problem mit dem anzeigen eines Zufallsbildes in einer Userform.
Egal was ich mache nix geht. Die Userform öffnet sich über einen Button und soll gleich ein GIF Bild selber auswählen und anzeigen.
Wo liegt der Fehler im Code.
Option Explicit
Private Sub BeendenForm_Initialize()
Dim l As Integer
With Application.FileSearch
.NewSearch
.LookIn = "Y:\Projektarbeit Kirchner\QM\Motivationsposter"
.SearchSubFolders = False
.FileName = ".gif"
.MatchTextExactly = True
.Execute
Randomize
l = Int((.FoundFiles.Count * Rnd) + 1)
Image1.Picture = LoadPicture(.FoundFiles(l))
End With
End Sub
Private Sub Abbrechen_Click()
Unload BeendenForm
End Sub
Private Sub Beenden2_Click()
Unload BeendenForm
SendKeys "{ESC}", True
End Sub
Anzeige