Dans le tableau ci-joint, je souhaiterais obtenir en colonne D les liens contenus dans des images figurant en colonne A. Pensez-vous que c'est réalisable ? Merci.
Sub test()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
On Error Resume Next
Sh.TopLeftCell.Offset(, 3).Value = Sh.Hyperlink.Address
On Error GoTo 0
Next Sh
End Sub