Makro

Sub BilderHyperlinksAnzeigen()
Dim lngT As Long, objBild As Shape, hyp As Hyperlink
On Error Resume Next
For Each objBild In ActiveSheet.Shapes
Set hyp = Nothing
Set hyp = objBild.Hyperlink
If Not hyp Is Nothing Then
lngT = lngT + 1
'Adresse der linken oberen Ecke des Bildes in Spalte J anzeigen :
Cells(lngT, 10) = objBild.TopLeftCell.Address
'Bildname in Spalte K anzeigen :
Cells(lngT, 11) = objBild.Name
'Hyperlink des Bildes in Spalte L anzeigen :
Cells(lngT, 12) = objBild.Hyperlink.Address
End If
Next
End Sub