Hyperlinks

Question

Hello, bonjour,salut

Petit bléme, comme Vba me gonfle avec: "impossible d'entrer en mode arret maintenant"
je n'arrive pas à savoir pourquoi il m'efface toutes les images sur ma page.(Même si je lui met le nom complet)

For Each img In ActiveSheet.Shapes
If Right(img.Hyperlinks, 10) <> "/affiches/" Then
img.Delete
Else
Stop
End If
Next

Siouplè, Merci. Si vous avez de la lumière...

cracos30 · Answer

Bon voila Solution: 

Dim i As Long
  Dim img As Object
  
    i = 1
    
    For Each img In ActiveSheet.Shapes
      If img.Type msoPicture And Right(img.Hyperlink.Address, 10) "/affiches/" Then img.Delete
        i = i + 1
      End If
    Next img
    
End Sub

Hyperlinks

1 réponse

Votre réponse

Discussions similaires