Chasse
XLDnaute Occasionnel
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
j'ai essayé avec l'enregistrement de macro mais je n'arrive pas à l'adapter a la boucle
Attention toutes les images n'ont pas forcement de lien
Merci de votre aide et Bon après-midi
Quelle code dois-je mettre pour supprimer le lien hypertexte
Avec ce début de code je lie l’image avec la cellule
VB:
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
Code:
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