Insertion d'image dans word

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

seghi0051

XLDnaute Occasionnel
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:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
580
Compte Supprimé 979
C
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour