Insertion d'une image avec un userform

Bonjour,

Ma question est assez simple.

Comment faire pour insérer une image dans un fichier excel à partir d'un userform ?

J'aimerais qu'il soit possible de cliquer sur un bouton "Parcourir", que je puisse indiquer le chemin vers une image et que cette image s’insère à un endroit précis sur ma feuille .

Dans l'attente de votre réponse.

Bonne soirée.

Bonjour,

Beaucoup d'exemples et de tutos disponibles ...

https://www.youtube.com/watch?v=U3UTMzWybU8

En espèrant que cela t'aide

J'ai déjà visionné cette vidéo et il n'explique pas comment inséré l'image dans la feuille Excel.

Re,

L'instruction la plus importante est LoadPicture ...

Sub Ajouter_Image()
    ' ajouter le contrôle
    Set Img = UserForm1.Controls.Add("Forms.Image.1")

    With Img
        ' Insérer Image dans le contrôle
        .Picture = LoadPicture("C:\Images\tonImage.jpg") 
        'Ajuster la taille
        .PictureSizeMode = fmPictureSizeModeStretch
        'Ajuster Position
        .Left = 50
        .Top = 10
    End With
End Sub

En espèrant que cela t'aide

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/Form_CreationRecherchePhoto.xls

Boisgontier

Bonjour,

Je vous remercie pour votre aide mais je ne souhaite pas avoir simplement l'aperçu dans le Userform.

J'aimerais un aperçu dans le userform et la possibilité de l'insérer à un endroit précis dans ma feuille.

cf PJ

Boisgontier

Bonsoir,

Ça fonctionne parfaitement.

Est-il possible de choisir la position exact dans la feuille plutôt que d'insérer l'image n'importe où ?

Autre question, que faut-il faire pour laisser la case "Image" vide quand le chemin n'est pas renseigné dans le Userform ?

En effet, si je fait une première fois l'insertion et qu'ensuite je relance le Userform, l'image précédemment sélectionné reste visible.

L'image est positionnée dans la cellule active.

Private Sub B_photo_Click()
   nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
   If Not nf = False Then
     Me.chemin = nf
     Me.Image1.Picture = LoadPicture(nf)
   End If
End Sub

Private Sub b_transfert_Click()
If Me.chemin <> "" Then
  ActiveSheet.Pictures.Insert (Me.chemin)
End If
End Sub

Boisgontier

Bonjour,

Je ne veut pas que l'image s'insere dans une cellule active mais dans un cellule précise (A1, B10,...).

Sinon l'image précédemment sélectionne reste toujours visible dans le Userform même si la ligne Chemin reste vide.

Je vous mets mon fichier en pièce jointe.

Le code se situe dans la feuille "00_ABAK_Page_de_garde" dans le bouton "Information du projet".