Discussion :

[celinepug]

Bonjour,

Je suis novice en VBA Word, je souhaiterais insérer une image dans un word à un endroit précis (soit en dessous du texte "image")

tout d'abord je trouve l'endroit "mettreimage" donc : Selection.Find.Execute findtext:="mettreimage"
jusque là tout va bien
j'ai mon image, nommée "Image" (variable "objShape") que je vais chercher dans un dossier :
Set objShape = Selection.InlineShapes.AddPicture("C:\PHOTOS\Image.jpg")
coller l'image fonctionne très bien

le programme donne :

Code :

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

1
2
Selection.Find.Execute findtext:="mettreimage"
Set objShape = Selection.InlineShapes.AddPicture("C:\PHOTOS\Image.jpg")

Ce programme remplace mon texte "mettreimage" par l'image, ce que je souhaiterai est de coller l'image sur une ligne en dessous du texte que je ne souhaite pas supprimer

Je n'arrive pas à trouver
Quelqu'un peut-il m'aider ?

Merci
Céline

[Invité]

Bonjour,

Essayez avec Endkey

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Essai()
 
Dim ObjShape As Object
 
    With Selection
         .Find.Execute findtext:="mettreimage"
         If .Range.Text = "mettreimage" Then
            .EndKey unit:=wdLine
            Set ObjShape = .InlineShapes.AddPicture("C:\PHOTOS\Image.jpg")
             '...... Suite du code
            Set ObjShape = Nothing
         End If
    End With
 
End Sub

[celinepug]

Merci Eric, ça fonctionne très bien, seulement j'ai oublié il faut que j'avance en tabulation !!

[clementmarcotte]

Bonjour,


Ou bien, comme je viens de mentionner dans une autre discussion qu'en absence d'une sélection "formelle", la selection est automatiquement le point d'insertion, et en supposant qu'il y ait un signet à l'endroit exact où doit se trouver l'image (ou n'importe quoi d'autre). C'est très facile dans le cas d'un modèle où le signet peut être déjà en place:

Code :

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

1
2
3
Sub AllerAuSignetICI
     Selection.GoTo What:=wdGoToBookmark, Name:="ici"
end sub

On peut épargner le signet en ajoutant une ou des lignes de code avec Selection.movenext ou Selection.moveright.