Hyperlinks

cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013 - 28 janv. 2010 à 19:47
cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013 - 29 janv. 2010 à 19:04
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...

1 réponse

cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013
29 janv. 2010 à 19:04
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
0