Hallo liebe VBA-Meister,
hab da mal ein kleines Problemchen mit folgendem Script:
Private Sub SetLinks()
Dim FirstRow As Long
Dim LastRow As Long
Dim iRow As Long
With ActiveSheet
FirstRow = 1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
ActiveSheet.Pictures.Delete
For iRow = FirstRow To LastRow
If Cells(iRow, "A").Value & Cells(iRow, "B").Value & Cells(iRow, "E").Value <> "" Then
ActiveSheet.Cells(iRow, "G").Select
ActiveSheet.Pictures.Insert ("C:\pfadzubild\bild.gif").Select
With Selection
.Top = Cells(iRow, "G").Top
.Left = Cells(iRow, "G").Left
.Height = Cells(iRow, "G").Height
End With
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, "G"), Address:="http://eineadresseimInternet/" & _
Date & "/" & Cells(iRow, "A") & "/" & Cells(iRow, "B") & "/" & Replace(Cells(iRow, "E"), " ", "+") & "/"
End If
Next iRow
End With
EndSub
Ausgangssituation ist folgende kleine tabelle:
A B C D
1 wert1a wert1b wert1c
2 wert2a wert2b wert2c
Folgendes soll passieren:
In der Spalte D soll zu jeder Zeile ein Link generiert werden, der aus den Werten aus A,B und C zusammengesetzt wird.
Dieser Link soll aber nicht in textform, sondern als Bild in Spalte D erscheinen.
Danach wird die Tabelle in eine HTML-Datei exportiert, deshalb sollte der Link als Bild erscheinen.
Was bisher funktioniert:
Der Link wird bisher einwandfrei zusammengebaut und in die Spalte D geschrieben.
Es wird auch für jede Zeile das Bild eingefügt.
Das eigentliche Problem:
Wie bekomme ich nun den Link auf das Bild gelegt?
Ich kann zwar händisch mit der rechten Maustaste auf ein Bild klicken und dann über "Hyperlink" einen Link hinzufügen,
aber wie funktioniert das per VBA.
Ich wäre sehr dankbar, wenn mir jemand an dieser Stelle weiterhelfen könnte.
Vielen Dank schonmal
SK
|