Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bilder in Userform!

Bilder in Userform!
04.12.2003 13:30:29
Nabriss
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder in Userform!
04.12.2003 13:35:50
Alex
Hi,

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

z.B.
image1.picture=loadpicture("c:\test.bmp")
AW: Bilder in Userform!
04.12.2003 15:01:15
Nabriss
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
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige