Enlevr LIEN HYPERTEXTE

Bonjour

j'ai un fichier EXCEL, bien sur, pleins de photos sur différent onglets qui on des liens hypertexte

y a t il une fonctionne pour enlever ces liens.

merci d'avance

Bonjour

Essaie

Sub Sup_Hyperlinks()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
Cells.Hyperlinks.Delete
Next Sh
End Sub

Cordialement

bonjour AMADEUS

ben.... si je comprend bien cette macro enlève les liens HYPERTEXTE des cellules ( déjà ça me rend un grand service)

mais le but est celui des photos qui on des liens

merci d'avance

Bonjour

essaie ce Code dans un module

Option Explicit
Option Compare Text

Sub Supprime_Liens()
    Dim img As Shape, Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
    For Each img In ActiveSheet.Shapes
     If img.Name Like "PICTURE*" Then
     img.Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
     End If
    Next img
    Next Sh
    End Sub

Cordialement

Bonjour

merci AMADEUS!!

mais je crois que j'ai un petit soucis,

ci la photo a pour nom PICTURE, effectivement ça fonctionne, mais sinon ....le liens persiste!!!

merci d'avance

Bonjour

Dans le Code, remplace

If img.Name Like "PICTURE*" Then

par

If img.Type = msoPicture Then

Cordialement

Rechercher des sujets similaires à "enlevr lien hypertexte"