Bilder in Userform!

• Bilder in Userform! von Nabriss vom 04.12.2003 13:30:29
  • AW: Bilder in Userform! - von Alex am 04.12.2003 13:35:50
    • AW: Bilder in Userform! - von Nabriss am 04.12.2003 15:01:15

Betrifft: Bilder in Userform!
von: Nabriss
Geschrieben am: 04.12.2003 13:30:29
Hallo zusammen!
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

Betrifft: AW: Bilder in Userform!
von: Alex
Geschrieben am: 04.12.2003 13:35:50
Hi,

ein image- object in der userform plazieren und
dann dem image einen file zuordnen

z.B.
image1.picture=loadpicture("c:\test.bmp")

Betrifft: AW: Bilder in Userform!
von: Nabriss
Geschrieben am: 04.12.2003 15:01:15
Danke!
Es funktioniert nicht immer richtig!
Wie kann ich die Bilder löschen von zwischen speicher!
Wie oben Bild.Delete

Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To 58
Image1.Picture = LoadPicture("c:\ECSBAU\\bilder\image" & i & ".jpg")
Application.Wait (Now + TimeSerial(0, 0, 1))
Next i
Unload Me
End Sub

Gruß
Nabriss

Excel-Beispiele zum Thema " Bilder in Userform!"
Bilder in Videoliste eintragen und löschen	Bilder in UserForm und Bildgröße anpassen
Bildergruppe in anderes Blatt kopieren