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