Discussion :

[fixfly]

Bonjour à tous !

J'ai un doc word que je change via un userform. J'utilise les signets.
Selon la valeur selectionnée dans mon userform, j'aimerais changer l'image sélectionnée. J'utilise des optionbutton.

Mon code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
ActiveDocument.Bookmarks("img_1").Select
Selection.InlineShapes.AddPicture "c:\cas1.jpg"
End If
If OptionButton2.Value = True Then
ActiveDocument.Bookmarks("img_1").Select
Selection.InlineShapes.AddPicture "c:\cas2.jpg"
'etc...
End If
End Sub

Le problème est qu'à chaque fois que je clique sur le bouton, word ajoute une image mais ne remplace pas l'image existante !
Savez-vous comment faire ?
Merci beaucoup !

[Heureux-oli]

Salut,

C'est parce que ton signet est un signet d'insertion.
Si ton signet entoure l'image, il sera détruit.
Dans ton cas, l'image n'est pas sélectionnée.

Essaie de sélectionner l'image.

Code :

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

ActiveDocument.InlineShapes(1).Select

[fixfly]

Merci !

Le souci c'est que j'ai de nombreuses images dans le document. Et selon les critères que je rempli dans le userform, leur nombre varie et du coup l'index de l'image ne sera pas le même...

N'est-il pas possible de renommer le signet que je détruis ?

[Heureux-oli]

Salut,
Si, on peut reconstruire le signet, mais ça va devenir une usine à gaz.

Pour reconstruire le signet, tu dois repérer son début et sa fin avant destruction et ensuite avec ces deux paramètre le recréer.


http://www.developpez.net/forums/d48...truire-signet/

[fixfly]

Merci beaucoup pour ce lien
Bonne soirée