Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1312to1316
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige