Sie möchten grafische Hyperlinks in Zelle auswerten ?

Nach einem Import aus dem Internet haben Sie in Ihrer Exceltabelle Hyperlinks die auf einer Grafik hinterlegt sind -

Sie benötigen diese Hyperlinks aber als String um sie entsprechend in Ihrer Tabelle weiterverarbeiten zu können.

Nachstehendes Makro von "Bamberg" hilft Ihnen da vielleicht weiter

 

Sub Hyperlink_in_Spalte_Schreiben()
Dim s As Shape

For Each s In ActiveSheet.Shapes
     s.TopLeftCell.Offset(0, 1).Value = s.Hyperlink.Address
Next s

Set s = Nothing
End Sub

Mit obigem Code für ein allgemeines Modul wurde die Zelle als Referenz genommen, welche unter der linken oberen Ecke des Bildes liegt.
Von dieser Zelle aus marschiert das Programm eine Spalte nach rechts und schreibt dort (falls vorhanden) den Hyperlink des Bildes hin.