Microsoft 365 Images: supprimer lien hypertexte

[Chasse]

Bonjour le Forum
Quelle code dois-je mettre pour supprimer le lien hypertexte
Avec ce début de code je lie l’image avec la cellule

Sub Macro8()
 Dim Sh As Shape
 For Each Sh In ActiveSheet.Shapes
    Sh.Select
        Selection.Placement = xlMoveAndSize
Next
End Sub

j'ai essayé avec l'enregistrement de macro mais je n'arrive pas à l'adapter a la boucle

Selection.ShapeRange.Item(1).Hyperlink.Delete

Attention toutes les images n'ont pas forcement de lien

Merci de votre aide et Bon après-midi

 

[sylvanu]

Bonjour Chasse,
essayez :

Sub Essai()
 Dim Sh As Shape
 For Each Sh In ActiveSheet.Shapes
    Sh.Placement = xlMoveAndSize
    On Error Resume Next
    Sh.Select
    Selection.ShapeRange.Item(1).Hyperlink.Delete
Next
[A1].Select
End Sub

On Error Resume Next permet d'éviter une erreur si le shape n'a pas de lien.

 

[Chasse]

Bonjour sylvanu

c'est Super ça fonctionne

Merci infiniment
Bonne fin de journée

 

[Staple1600]

Bonsoir le fil, Chasse, sylvanu

Si on a le droit de supprimer tous les liens de la feuille active alors
on peut simplement faire

Sub SupprHL()
On Error Resume Next
ActiveSheet.Hyperlinks.Delete
End Sub