Laden Bild UserForm

Forumthread: Laden Bild UserForm

Laden Bild UserForm

14.05.2013 01:14:03

mehmet

Hallo Forum,
als Anhang ist eine Excel Datei mit Verzeichnis "pic" wo sich Bilder befinden.
Nun soll anhand UserForm ComboBox die jeweiligen Bilder dargestellt werden.
Etwa so:


Image1000 = Lade aus _
"pic\" & _
ComboBox1000.List(ComboBox1000.ListIndex, 1) &_
"-" &_
ComboBox1000.List(ComboBox1000.ListIndex, 3) &_
"-" &_
ComboBox1000.List(ComboBox1000.ListIndex, 5) &_
".jpg" oder ".gif" &_
falls nicht vorhanden, dann "no_photo.jpg"

Wie könnte die Lösung aussehen.
Dank und Gruss
mehmet
https://www.herber.de/bbs/user/85318.zip

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laden Bild UserForm

14.05.2013 08:22:37

Beverly
AW: Laden Bild UserForm

14.05.2013 09:34:33

mehmet
AW: Laden Bild UserForm

14.05.2013 11:39:50

mehmet
Laden Bild in UserForm von Webseite

14.05.2013 12:02:32

Webseite

AW: Laden Bild UserForm

14.05.2013 08:22:37

Beverly

Hi Mehmet,

Private Sub ComboBox1000_Change()
Dim strVorhanden As String
strVorhanden = Dir("D:\pic\" & ComboBox1000.List(ComboBox1000.ListIndex, 1) & _
"-" & ComboBox1000.List(ComboBox1000.ListIndex, 3) & "-" & _
ComboBox1000.List(ComboBox1000.ListIndex, 5) & ".jpg")
If Not bolaendern Then
TextBox1000 = ComboBox1000.List(ComboBox1000.ListIndex, 1)
TextBox2000 = ComboBox1000.List(ComboBox1000.ListIndex, 2)
TextBox3000 = ComboBox1000.List(ComboBox1000.ListIndex, 3)
TextBox4000 = ComboBox1000.List(ComboBox1000.ListIndex, 4)
TextBox5000 = ComboBox1000.List(ComboBox1000.ListIndex, 5)
Label1000 = ComboBox1000.List(ComboBox1000.ListIndex, 1)
Label2000 = ComboBox1000.List(ComboBox1000.ListIndex, 2)
Label3000 = ComboBox1000.List(ComboBox1000.ListIndex, 3)
Label4000 = ComboBox1000.List(ComboBox1000.ListIndex, 4)
Label5000 = ComboBox1000.List(ComboBox1000.ListIndex, 5)
If strVorhanden  "" Then
Image1000.Picture = LoadPicture("D:\pic\" & _
ComboBox1000.List(ComboBox1000.ListIndex, 1) & "-" & _
ComboBox1000.List(ComboBox1000.ListIndex, 3) & "-" & _
ComboBox1000.List(ComboBox1000.ListIndex, 5) & ".jpg")
Else
Image1000.Picture = Nothing
MsgBox "Bild nicht vohanden"
End If
End If
bolaendern = False
End Sub

AW: Laden Bild UserForm

14.05.2013 09:34:33

mehmet

Guten Tag Karin,
herzlichen Dank, funktioniert einwandfrei.
Viele Gruesse
mehmet

AW: Laden Bild UserForm

14.05.2013 11:39:50

mehmet

Hallo Karin,
wollte kurz nachfragen ob es möglich ist.
Der Verweis ist ja ein Laufwerk
Was mache ich denn, wenn es ein Link sein soll:
strVorhanden = Dir("http://www.dieseite.de/pic/" & ComboBox1000.List(ComboBox1000.ListIndex, 1) & _
geht leider nicht 8(
Gruss
mehmet

Laden Bild in UserForm von Webseite

14.05.2013 12:02:32

Webseite

Hi Mehmet,
wenn sich das Bild auf einer Webseite befindet, musst du es entweder in die Zwischenablage kopieren oder zuerst auf dem Rechner speichern. Zu beiden Möglichkeiten findest du bestimmt Lösungen im Forumsarchiv (oder bei Google).
Ich stelle den Beitrag auf offen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Laden Bild UserForm

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread