Extraire le lien hypertexte d'une image sous forme de texte

Bonjour à tous,

Donc voici ma question:

Dans une colonne j'ai des images contenant leur lien hypertexte (que je retrouve dans la "Mise en forme de l'image" - "Texte de remplacement" - "Description" pour chacune des images après un clic droit sur l'image et choix "Taille et propriétés ...").

Est-il possible d'obtenir dans la colonne suivante ce même lien sous forme de texte.

En espérant avoir été explicite.

Avec tous mes remerciements.

Bonjour,

Fichier

Bonjour.

A essayer et à adapter.

Sub Test()

MsgBox ActiveSheet.Shapes.Count

For Each obj In ActiveSheet.Shapes

MsgBox obj.Name & "*/*" & obj.Hyperlink.Name

Next

End Sub

Cordialement.

Merci pour ta réponse Ayari Moncef.

Les boites de dialogue s'est sympa, mais est-ce possible d'avoir l'extraction sous forme de texte dans la cellule de la colonne suivante (soit une colonne avec les images [origine du document] et dans la colonne suivante et sur la même ligne pour chacune des images [résultat du programme] le texte du lien contenu dans l'image).

Sans vouloir me montrer obligent, avec tous mes remerciements.

Bonsoir,

Sub Test()
    Dim shp As Shape, c As Range
    On Error Resume Next
    With ActiveSheet
        For Each shp In .Shapes
            Set c = shp.BottomRightCell
            c.Offset(, 1) = shp.Hyperlink.Address
        Next shp
    End With
End Sub

Merci MFerrand,

Tes lignes de code sont impeccables, c'est exactement le résultat que je désiré.

Dominant le sujet sur la programmation en VBA, je suis sûr que tu éprouves une excitation dans la conception du code.

Et d'autant, dans la complexité du sujet à traité (je ne pense pas que c'était le cas pour mon problème qui a du te semblais simple).

Mille mercis et bonne exaltation dans ta passion.

Bonne journée.