Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
Bilderlinks als Bild in Excelzelle anzeigen lassen
Aus einer Frage in einem Forum ...
Ist es in Excel irgendwie möglich, dass ich einen Link in eine Zelle kopiere, der mir dann das Bild direkt anzeigt, ohne den eigentlichen (Hyper)Link?
Mit diesem Hack kein Problem ...
Quellcode für z.B. Tabelle1 ...
Option Explicit
Dim lastCell As Excel.Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not lastCell Is Nothing And _
Left$(lastCell.Text, 7) = "http://" Then
With lastCell
.Activate
ActiveSheet.Pictures.Insert .Text
.Clear
Target.Activate
End With
End If
Set lastCell = Target
End Sub
© 2001 -
by Thomas Risi