Bilder in Userform!
04.12.2003 13:30:29
Nabriss
Mit folgendes Code werden 15 Bilder " Image1.jpg,Image2.jpg,Image3.jpg,..."
aus den File Bilder je 3 sec. gezeigt in Arbeitsmappe. Es funktioniert super.
Mein Problem ist :Wie kann ich das in einem Userform machen?
Sub Bilder()
Dim Pfad
Dim i As Integer
Dim Bild As Object
Pfad = ThisWorkbook.Path
ActiveSheet.Unprotect
Range("A1").Select
For i = 1 To 15
Set Bild = = ActiveSheet.Pictures.Insert(Pfad & "\bilder\Image" & i &".jpg")
Application.Wait (Now + TimeSerial(0, 0, 3))
Bild.Delete
Next i
ActiveSheet.Protect
End Sub
Gruß
Nabriss
Anzeige