Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Bild anzeigen | Herbers Excel-Forum


Betrifft: Bild anzeigen von: Rüdiger
Geschrieben am: 07.08.2012 13:28:41

Hallo Forum,

ich suche schon seit Tagen nach einer Lösung - und hoffe, hier Hilfe zu finden.

ich habe eine Tabelle mit meinen verkauften Artikeln (Unikate).

Ich möchte bei Doppelklick auf die Artikelbezeichnung, das dazugehörende Foto anzeigen (neues Fenster oder MSGBox wenn möglich).

Die Fotos befinden sich in einem extra Verzeichnis
und haben den gleichen Namen wie die Artikelbezeichnung und zusätzlich .jpg

Bin dankbar für jeden Tipp

Rüdiger

  

Betrifft: Bilder in UserForm - Siehe alten Spotlight-Beitrag von: NoNet
Geschrieben am: 07.08.2012 13:37:26

Hallo Rüdiger,

schau Dir dazu mal diesen alten Beitrag aus dem ehemaligen Spotlight-Forum an :

http://www.spotlight-wissen.de/archiv/message/1110020.html

Und hier der aktuelle Download-Link dazu :

http://www.excelei.de/downloads/mappen/Produktanzeige_in_UserForm.xls

Salut, NoNet


  

Betrifft: AW: Bild anzeigen von: ChrisL
Geschrieben am: 07.08.2012 13:45:39

Hi Rüdiger

In Ergänzung noch eine "quick & dirty" Variante :)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & Target & ".jpg"
End Sub
Alt+F11, links Doppelklick auf Tabelle, Code einfügen.

cu
Chris


  

Betrifft: AW: Bild anzeigen von: ChrisL
Geschrieben am: 08.08.2012 10:58:39

Hi Rüdiger

ungetestet...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strPfad as String

strPfad = ThisWorkbook.Path & "\" & Target & ".jpg"
If Dir(strPfad) = "" Then
        MsgBox "gibts nicht"
Else
        ActiveWorkbook.FollowHyperlink strPfad
End If
End Sub

cu
Chris


  

Betrifft: AW: Bild anzeigen von: Rüdiger
Geschrieben am: 07.08.2012 13:45:45

Danke NoNet,



ich werde es gleich ausprobieren



Rüdiger


  

Betrifft: AW: Bild anzeigen von: Rüdiger
Geschrieben am: 08.08.2012 00:06:30

Hallo NoNet, hallo ChrisL,

die kurze Version habe ich hinbekommen - die längere Version habe ich nicht so ganz geschnallt, obwohl eleganter -
eine Frage hätte ich noch zu der kurzen Version - könnte man, wenn kein Bild zu einem Artikel vorhanden, statt der Fehlermeldung - einblenden "kein Bild vorhanden" ???

Vielen Dank euch beiden
Rüdiger


  

Betrifft: AW: Bild anzeigen von: Rüdiger
Geschrieben am: 08.08.2012 16:52:59

Hi Chris,

danke, so hatte ich es mir gedacht :-)

Rüdiger


Beiträge aus den Excel-Beispielen zum Thema "Bild anzeigen"