Extraire un lien contenu dans une image

[almoha]

Bonjour,

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.

 

[Dranreb]

Re : Extraire un lien contenu dans une image

Bonjour.

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

 

[almoha]

Re : Extraire un lien contenu dans une image

Merci Dranreb, cela correspond à ce que je souhaitais obtenir.