Bilder neben gebasteltem Hyperlink anzeigen.

Hallo an alle,
ich hoffe, ihr könnt mir weiterhelfen. Auch ich, wie wahrscheinklich 99% der Menschen auf dieser Erde, habe so gut wie keine Ahnung von VBA. Daher bastele ich mir gerade sehr mühsam eine Vorlage für eine Fotodokumentationserstellung inkl. EXIF-Auslesung aus diversen VBA-Codes aus dem Internet zusammen.
Das Thema EXIF-Auslesung habe ich jetzt schon mittels eines Codes im Tabellenblatt 2 hinbekommen. U. a. wird hier auch der Dateipfad mit ausgeworfen.
Mittels eines weiteren Codes möchte ich nun im Tabellenblatt 1 den Dateipfad in einen Hyperlink umwandeln z.B. so "=Hyperlink(B3)". Dies funktionioniert auch, nur der unten aufgeführte VBA-Code, den ich auch im Internt entdeckt habe, funktioniert nicht, wenn ich die Hyperlinks wie oben dargestellt erstelle. Ich habe auch schon über die Verketten-Funktion den Link wie z.B. file:///xyz/xy/x.jpg versucht darzustellen - aber auch dann funktioniert das mit dem unten aufgeführten Code nicht....
Da ich nun schon Stunden damit verbracht habe, hierfür eine Lösung im Internet aufzutreiben, wende ich mich nun an euch.
Ich hoffe, ihr könnt mein Problem nachvollziehen und bedanke mich schon jetzt für evtl. Antworten.
Hier noch der Code für die Bilder, die rechts neben dem Hyperlink eingefügt werden:
Sub HyperlinksExtract() Dim h As Hyperlink Dim oPic As Object Dim rngZelle As Range For Each h In ActiveSheet.Hyperlinks Set rngZelle = Cells(h.Range.Row, h.Range.Column + 1) Set oPic = ActiveSheet.Pictures.Insert(h.Address) oPic.Top = rngZelle.Top oPic.Left = rngZelle.Left oPic.Height = rngZelle.Height oPic.Width = rngZelle.Width oPic.Placement = xlMoveAndSize Next h End Sub

Vielen Dank und einen schönen Abend
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uwe,
das folgende Makro erzeugt im Tabellenblatt für eine Liste von Dateinamen Hyperlinks.
Blattnamen, Spaltennummern und Startzeile(n) muss du ggf. noch anpassen. Ebenso die Texte, die in die Zellen eingetragen und als Hyperlin-Screentip angezeigt werden sollen.
Danach funktioniert dann dein vorhandenes Makro, um die zugehörigen Grafikdateien in die rechten Nachbarzellen der Hyperlinks einzufügen.
Gruß
Franz

Sub MakeHyperlinks()
'Hyperlinks für die Liste der Dateien im Blatt Tabelle2 in Tabelle1 erstellen
Dim wksListe As Worksheet, wksZiel As Worksheet
Dim ZeileHyplink As Long, ZeilePfad As Long
Dim SpaltePfad As Long, SpalteHypLink As Long, strDateiName As String
Set wksListe = ActiveWorkbook.Worksheets("Tabelle2")
Set wksZiel = ActiveWorkbook.Worksheets("Tabelle1")
With wksZiel
SpalteHypLink = 1 'Spalte A = Spalte für die Hyperlinks
'Letzte Zeile in Hyperlinkspalte mit Dateneintrag
ZeileHyplink = .Cells(.Rows.Count, SpalteHypLink).End(xlUp).Row
If ZeileHyplink = 1 And IsEmpty(.Cells(1, SpalteHypLink)) Then ZeileHyplink = 0
End With
With wksListe
SpaltePfad = 3 'Spalte C = Spalte mit Dateiname+Pfad
Application.ScreenUpdating = False
For ZeilePfad = 2 To .Cells(.Rows.Count, SpaltePfad).End(xlUp).Row 'startzeile ggf.  _
anpassen
strDateiName = .Cells(ZeilePfad, SpaltePfad)
If Dir(strDateiName)  "" Then
With wksZiel
ZeileHyplink = ZeileHyplink + 1
'Dateiname ohne Verzeichnis in Zelle mit Link eintragen - der Text in der Zelle _
mit dem Hyperlink kann beliebig festgelegt werden
.Cells(ZeileHyplink, SpalteHypLink).Value _
= Mid(strDateiName, InStrRev(strDateiName, "\") + 1)
'Hyperlink für Datei anlegen - der Text für den Screnntip kann beliebig festgelegt  _
werden
.Hyperlinks.Add anchor:=.Cells(ZeileHyplink, SpalteHypLink), _
Address:=strDateiName, _
ScreenTip:="Datei: " & strDateiName & vbLf _
& "Klick auf Dateiname zeigt Bild in Viewer an"
End With 'wksZiel
End If
Next ZeilePfad
End With 'wksListe
Application.ScreenUpdating = True
MsgBox "Fertig", vbInformation, "Hyperlinks erstellen"
End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	Feld01	Feld02	Pfad+Dateiname
2			C:\Users\Public\Test\Bilder\01_004 Haus am See.jpg
3			C:\Users\Public\Test\Bilder\02_002 Der Nachbar und sein Hund.jpg
4			C:\Users\Public\Test\Bilder\10_005 Alle Kinder zuhause.jpg
5			C:\Users\Public\Test\Bilder\Bild01.jpg

	A	B
1	Dateiname	Bild
2	01_004 Haus am See.jpg
3	02_002 Der Nachbar und sein Hund.jpg
4	10_005 Alle Kinder zuhause.jpg
5	Bild01.jpg

Bilder neben gebasteltem Hyperlink anzeigen.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bilder neben gebasteltem Hyperlink anzeigen.

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread