Bild über Listbox anzeigen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi!
Naja, die Bilder sind auf einer CD. Die Listbox sieht so aus:
Private Sub lbxArtikel_Click()
Dim j As Integer, k As Integer, iSize As Integer
Dim cell As Range, ctrl As Control
Set Stammblatt = Worksheets(Stamm)
'---Info-Teil der UF aktualisieren----
With Me
.tbxArtName = lbxArtikel.List(lbxArtikel.ListIndex, 0)
.tbxText = lbxArtikel.List(lbxArtikel.ListIndex, 1)
.tbxArtNummer = Format(lbxArtikel.List(lbxArtikel.ListIndex, 2), "00 00 00 000")
.tbxGrSchluessel = lbxArtikel.List(lbxArtikel.ListIndex, 3)
.tbxGruppe = lbxArtikel.List(lbxArtikel.ListIndex, 4)
.tbxPreisEuroEK = Format(lbxArtikel.List(lbxArtikel.ListIndex, 5), "00.00")
.tbxPreisEuroVK = Format(lbxArtikel.List(lbxArtikel.ListIndex, 6), "00.00")
.tbxPreisDollarEK = Format(lbxArtikel.List(lbxArtikel.ListIndex, 7), "00.00")
.tbxPreisDollarVK = Format(lbxArtikel.List(lbxArtikel.ListIndex, 8), "00.00")
.tbxPreisCHFEK = Format(lbxArtikel.List(lbxArtikel.ListIndex, 9), "00.00")
.tbxPreisCHFVK = Format(lbxArtikel.List(lbxArtikel.ListIndex, 10), "00.00")
.cbxFarbe.Clear
End With
Im Stammblatt (= .tbxArtNummer/Spalte C) sind Artikelnummern enthalten. Diese Artikelnummern sind zugleich Dateinamen + Endung (.jpg). Wie du siehst, werden mehrere dazugehörige Informationen angezeigt bei Klick. Wie ermögliche ich auch ein dazugehöriges Bild anzuzeigen?
lg Marco

Hi Marco,
ich bin davon ausgegangen, dass Du eine Userform benutzt. Das scheint entweder nicht der Fall zu sein, oder Du hast nicht den kompletten Pfad in der Tabelle. Das mußt Du schon sicherstellen! Es genügt nicht, wenn da Kaffetasse.jpg steht. Da muß dann schon z. Bsp. F:\Bilder\Haushaltsartikel\Kaffeetasse.jpg stehen (oder sowas in der Art) Notfalls mußt Du halt die fehlenden Pfadangaben ergänzen.
Für den Fall, daß Du keine Form benutzt, hier mal eine andere Möglichkeit. Füge den nachfolgenden Code in ein allgemeines Modul ein. Ich habe hier die Quelle für die Pfadangaben in Spalte A gesetzt. das mußt Du notfalls anpassen. Der Code fügt Dir Bildkommentare ein. Damit sparst Du Dir die Listbox und alles anderen Krempel. Du brauchst also dann nur noch das Makro 'BilderKommentar' starten.


Sub BilderKommentar()
Dim x%, oComm As Comment, sPfad$, iEnde%
iEnde = ActiveCell.SpecialCells(xlLastCell).Row
For x = 0 To iEnde - 1
Range("A" & x + 1).ClearComments
sPfad = Range("A" & x + 1)
' Kommentar einfügen
Set oComm = ActiveSheet.Range("A" & x + 1).AddComment
With oComm
.Shape.Fill.UserPicture sPfad
.Shape.Height = 150 'oder wie groß auch immer...
.Shape.Width = .Shape.Height * 0.75
End With
Next x
End Sub

Ciao, Ralf

Private Sub CommandButton1_Click() Dim zeile As Long, wert$ On Error GoTo Fehler zeile = ListBox1.ListIndex 'Den Pfad vervollständigen. 'Bsp.: In Spalte 3 der Listbox steht 'Kaffeetasse_blau' 'Der komplette Pfad ist aber 'L:\Bilder\Kaffeetass_blau.jpg' wert = "L:\Bilder\" & ListBox1.List(zeile, 2) & ".jpg" Image1.Picture = LoadPicture(wert) Exit Sub Fehler: MsgBox "Es ist ein Fehler aufgetreten. " & vbCrLf & _ "Überprüfen Sie bitte ob die Pfadangabe korrekt ist oder ein Datenträger eingelegt wurde.", _ vbOKOnly + vbCritical, "Anwendungsfehler" End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bild über Listbox anzeigen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread