Autom. Verlinkung zu Bilddateien

Hi Ihr,
mal wieder eine Frage an die Ex(cel)perten: :-)
Ich habe eine Tabelle mit mehreren hundert Einträgen, die in Spalte C die jeweilige Artikelbezeichnung enthält und zu jedem dieser Artikel eine Bilddatei mit exakt dem gleichen Titel in einem Ordner auf einem Laufwerk (alle Bilddateien sind im gleichen Ordner gespeichert).
Problem:
Wie ich Hyperlinks in Excel verwende, weiss ich, was ich allerdings hier gerne hätte ist, dass beim Klick auf eine der Artikelbezeichnungen in Spalte C das Bild nicht in einem Extra-Programm geöffnet wird (bei mir öffnet sich hier immer automatisch Photoshop), sondern dass die Bilder in einem fest vorgegebenen Fenster bzw. Zelle innerhalb von Excel angezeigt werden, so dass die Anzeige etwas schneller geht und ich selbst festlegen kann, wie groß das Bild angezeigt werden soll.
Frage:
Wisst Ihr, wie so etwas möglichst einfach über VBA gelöst werden kann, ohne dass ich für jeden einzelnen Link das entsprechende Bild aufwendig definieren muss ?
Ich dachte mir, wenn die Bilder alle genau wie die Artikel bezeichnet sind + sich alle Bilder im gleichen Ordner befinden, muss sich das doch irgendwie per Code automatisiern lassen ? :-(
Bin Euch für jeden Tipp dankbar !
VG,
Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim varBild If Target.Column = 3 Then If Target.Count = 1 Then If Target "" Then If Dir("D:\Eigene Dokumente\Eigene Bilder\" & Target.Value & ".jpg") "" Then If ActiveSheet.Pictures.Count > 0 Then ActiveSheet.Pictures(1).Delete Set varBild = ActiveSheet.Shapes.AddPicture("D:\Eigene Bilder\" & _ Target & ".jpg", True, True, Range("E4").Left, Range("E4").Top, 160, 120) Set varBild = Nothing End If End If End If End If End Sub

Hi Mike,
zu 1.: der Pfad muss an beiden Stellen natürlich identisch sein (da hatte ich bei der Verkürzung der Codezeile - damit hier im Beitrag kein unerwünschter Zeilenumbruch angezeigt wird - einen Teil des Pfades weggelöscht und bei der anderen Codezeile vergessen, dasselbe zu tun)
zu 2.: .Value ist die Standardeigenschaft der Zelle und kann weggelassen werden
zu 3.: dass der Code ins Codemodul des Tabellenblattes gehört, hatte ich bereits in meinem vorhergehenden Beitrag geschrieben - also Rechtsklick auf den Tabellenreiter -&gt Code anzeigen -&gt Code ins rechte Codefenster kopieren
Option Excplict ist nicht erforderlich, damit ein Code funktioniert, allerdings ist es eine außerordentlich gute Programmierhilfe, da es zwingend eine Variablendeklaration erfordert (falls man Variablen im Code benutzt) - dadurch wird verhindert, dass Variablen im Code falsch benutzt werden und somit der Code zu falschen Ergebnissen führen könnte.
Zitat aus der VBA-Hilfe:
Mit Option Explicit vermeiden Sie falsch geschriebene Namen bereits bestehender Variablen oder Verwechslungen im Code bei unklarem Gültigkeitsbereich von Variablen.
Aus diesem Grund ist es günstig, wenn man den VBA-Editor so einstellt, dass Option Explicit automatisch an den Anfang eines Codemoduls geschrieben wird. Diese Eistellung findet man im VBA-Editor unter Extras -&gt Optionen -&gt Reiter: Editor und dort "Variablendeklaration erforderlich" aktivieren.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim varBild If Target.Column = 3 Then If Target.Count = 1 Then If Target "" Then If Dir("D:\Eigene Bilder\" & Target & ".jpg") "" Then If ActiveSheet.Pictures.Count > 0 Then ActiveSheet.Pictures(1).Delete Set varBild = ActiveSheet.Shapes.AddPicture("D:\Eigene Bilder\" & _ Target & ".jpg", True, True, Range("E4").Left, Range("E4").Top, 160, 120) Set varBild = Nothing End If End If End If Else ' Bild löschen wenn nicht in Spalte C geklickt wird If ActiveSheet.Pictures.Count > 0 Then ActiveSheet.Pictures(1).Delete End If End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autom. Verlinkung zu Bilddateien

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread