Bonjour a tous ,
étant novice dans ce domene ,je sollicite votre aide ,
en effet mon but est de pouvoir redimensionner et positionner une image que j'ajoute sur mon fichier word ,
je parviens bien a faire les modifications qui me conviennent cependant je ne parvient pas a préciser que je veux modifier par exemple l'image de mon document (ou l'image sur laquelle j'aurai cliqué ) .
Voici le code actuel :
Malgré de nombreuse tentatives , je ne réussi pas remplacer l'emplacement de mon image ,par une image déjà présente dans mon fichier word .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub insere_image() Dim image As Shape Set image = ActiveDocument.Shapes.AddPicture(FileName:="C:\0.jpg") With image .RelativeHorizontalPosition = 1 .RelativeVerticalPosition = 0 .Left = CentimetersToPoints(13.34) .Top = CentimetersToPoints(4.7) .LockAspectRatio = msoTrue .Height = CentimetersToPoints(3.55) End With End Sub
Partager