Discussion :

[Arsene12]

Bonjour,

Je voudrai sélectionner une image contenant un lien hypertexte précis.

Quel code dois-je utiliser?

Merci d'avance.

Arsène

[Arsene12]

Bonsoir, je sais comment sélectionner les images une par une mais j'ai un bug au moment ou j'essaye de savoir si le lien associé à l'image est bien celui que je cherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
Dim n As Integer
n = ActiveDocument.InlineShapes.Count
Selection.HomeKey Unit:=wdStory ' place le curseur en debut du document
Dim AdrLien As String
For i = 1 To n
ActiveDocument.InlineShapes(i).Select
AdrLien = "http://www.monlien"
If ActiveDocument.InlineShapes(i).Hyperlink.Address = AdrLien Then Selection.Copy  "" BUG BUG BUG 
Next i
End Sub

[Arsene12]

Bonjour, c'est bon, ne cherchez plus, j'ai trouvé le bon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SelectImage()
Dim i As Integer
Dim n As Integer
Dim AdrLien As String
n = ActiveDocument.InlineShapes.Count
AdrLien = "http://www.monlien"
For i = 1 To n
ActiveDocument.InlineShapes(i).Select
If Selection.Hyperlinks.Count >= 1 Then
If ActiveDocument.InlineShapes(i).Hyperlink.Address = AdrLien Then Selection.Copy
End if
Next i
End Sub