Discussion :

[maxime2638]

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 :

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

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 .

[E KERGRESSE]

Bonjour,

Ce code fonctionne avec des shapes pouvant contenir une image. Pour cela, il faut que la forme soit préalablement sélectionnée :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub ImporterUneImage()
 
Dim Image As Shape
Dim fd As FileDialog
Dim NomFichier As Variant
 
        Set fd = Application.FileDialog(msoFileDialogFilePicker)
        With fd
            .Filters.Clear
            .Filters.Add "Picture Files", "*.jpg"
            .ButtonName = "Selection de la photo"
            .AllowMultiSelect = False
            .Title = "Choix de la photo"
            .InitialView = msoFileDialogViewDetails
            If .Show = -1 Then
               NomFichier = .SelectedItems(1)
            Else
               Exit Sub
            End If
        End With
 
        Set Image = Selection.ShapeRange(1)
        With Image
             .Fill.UserPicture NomFichier
             .RelativeHorizontalPosition = 1
             .RelativeVerticalPosition = 0
             .Left = CentimetersToPoints(13.34)
             .Top = CentimetersToPoints(4.7)
             .LockAspectRatio = msoTrue
             .Height = CentimetersToPoints(3.55)
         End With
 
        Set Image = Nothing
        Set fd = Nothing
 
End Sub