Bild einfügen und Hyperlink dazu erstellen
02.02.2015 11:22:31
Andy
ich lesen mit dem folgenden Schnipsel Fotos aus einem Ordner aus; anschließend werden diese _ verkleinert:
If Dir(PfadUndDateiname) "" Then
'Datei gefunden
.Cells(i, 4).Select
ActiveSheet.Pictures.Insert(PfadUndDateiname1).Select
Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
Else
'Rückmeldung in Tabelle.
.Cells(i, 4).Value = "kein Foto"
End If
Dazu möchte ich gerne, auf dem soeben ausgelesene Foto einen Hyperlink zu PfadUndDateiname setzen.
Wie ist dies möglich?
Ich habe es mal versucht mit dem Macrorekorder aufzuzeichnen, jedoch verwendet Excel dann eine _ laufende Bildnummer:
ActiveSheet.Shapes.Range(Array("Picture 74")).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
"F:\Pfad\Foto1.jpg"
Wer kann mir hier weiterhelfen? Gerne auch Anregungen zur Optimierung vom Codeschnipsel. Besteht auch die Möglichkeit das Bild immer in einer festen Höhe anzuzeigen: zB. Höhe = 200px ?
Gruß Andy