Insertion d'image dans word

[seghi0051]

Bonjour à toutes et à tous,
Voilà mon problème j'ai crée une Userform dans laquelle se trouve un Bouton parcourir, un cadre pour visualiser un image ainsi qu'un bouton inserer.
Pour l'instant j'en suis qu'au bouton Parcourir et voici mon code:

Dim image As Integer

Private Sub CommandButton1_Click()

    Dim fd As FileDialog
    Dim fichier As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    Dim vrtSelectedItem As Variant

    With fd

        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

        If .Show = -1 Then

            For Each vrtSelectedItem In .SelectedItems

                
               fichier = vrtSelectedItem
      
            Next vrtSelectedItem
        
        Else
        End If
    End With

    Set fd = Nothing
    If fichier = "" Then Exit Sub
     
  Selection.InlineShapes.AddPicture FileName:=fichier, LinkToFile:=True, SaveWithDocument:=False

Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(fichier)

End Sub

Mon code fonctionne, je peux choisir mon image et j'arrive à la visualiser dans mon Userform, le seul probleme c'est qu'elle s'insere aussi sur mon fichier word alors que je ne lui ai rien demandé. Pouvais vous m'aidez.

Merci

 

[PMO2]

Re : Insertion d'image dans word

Bonjour,

le seul probleme c'est qu'elle s'insere aussi sur mon fichier word alors que je ne lui ai rien demandé

Vous l'avez bel et bien demandé. Il faut supprimer l'instruction

Selection.InlineShapes.AddPicture FileName:=fichier, LinkToFile:=True, SaveWithDocument:=False

 

[seghi0051]

Re : Insertion d'image dans word

Salut,
je te remercie pour ta réponse, je n'ai pas du tout fait gaffe à cette ligne,
voilà lorsqu'on fait du copier/coller parfois sa n'aide pas.

merci.