Thumbnail zur Bilder-URL anzeigen lassen
15.04.2016 10:56:22
Juergen
es hat mir Rudi ja diesen genialen Code aufgezeigt aber schon muss ich was hinter her fragen:
Private Sub cmdBild_einfuegen_Click()
'Bild suchen und einfügen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "c:\tmp\"
.Filters.Add "Bilder", "*.jpg"
.FilterIndex = .Filters.Count
If .Show = -1 Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(Rows.Count, 1).End(xlUp).Offset(, 6), _
Address:=.SelectedItems(1)
End If
End With
End Sub
Es wird der URL-Link in die 7. Zelle der Zeile vom Bild geschrieben. Es stellte sich nun heraus, dass einen Vorabschau eines kleinen Thumbnails das Arbeiten mit der Tabelle erleichtern würde.
Könnte man den Code dahin erweitern, dass zusätzlich in der Zelle 8 zur URL ergänzend ein kleines Bildchen angezeigt werden würde? Es sind jedoch die Bilder in unterschiedlichen Abmessungen vorhanden. So sollten die Thumb's gleich alle auf einheitliche Höhe reduziert und an die Zeilenhöhe angepasst werden.
Vielleicht hat jemand eine Code-Erweiterungs-Idee :)
Oder, es ist ganz einfach über einen Formel in Referenz zur URL Zelle zu handhaben? Denke aber nicht, da keine Anpassungen erfolgen bezügl. der Größe des Bildes, oder?
Danke im voraus!
Gruss, Juergen
