Discussion :

[dakota77]

Bonjour,
Un document Word 2003 contient 200 images liées (et non intégrées dans le document).

Je souhaiterais écrire une routine qui lit le nom, position et échelle de chaque image, l'efface et insère une autre image à la place à la même position et échelle.

Tout à fait nouveau en VBA pour Word j'aimerais tout d'abord comprendre comment insérer une image liée au document (non sauvegardée dans le document) à une position x,y et échelle z.
Avec le code ci-dessous, l'image est intégrée et non liée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub TEST()
Dim imagePath As String
imagePath = "C:\11\IM01.jpg"
ActiveDocument.Shapes.AddPicture FileName:=imagePath, _
    LinkToFile:=True, _
    SaveWithDocument:=False, _
    Left:=150, _
    Top:=150, _
    Anchor:=Selection.Range, _
    Width:=200, _
    Height:=200
End Sub

Merci pour votre aide.

[Heureux-oli]

Salut,

Essaie avec

Code :

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

LinkToFile:=False

[dakota77]

Bonjour,

Merci pour ta réponse.
Curieusement

Code :

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

LinkToFile:=False

retourne un message d'erreur.
Erreur d'exécution "4120" paramètre incorrect.
J'ai fait le test sur 2 postes différents même résultat.

Merci

[Heureux-oli]

Salut,

Il faut modifier aussi la propriété suivante.

Code :

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

1
2
LinkToFile:=False, _
    SaveWithDocument:=True,