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

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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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

Anzeige
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.

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige