XL 2016 insère des photo dans un User forme.

Lolote83 à dit:

Bonjour à tous
Va faire un tour sur le site du regretté Jacques Boisgontier ici http://boisgontierj.free.fr/pages_site/lesimages.htm et tu devrais trouver ton bonheur
@+ Lolote83

Cliquez pour agrandir...

Lolote83 à dit:

Bonjour à tous,
Voici ton fichier en retour ou j'ai rajouté un bouton et un ComboBox dans le formulaire
L'appui sur le bouton charge dans le ComboBox toutes les images contenues dans l'onglet photos
Le choix via le ComboBox du nom de l'image affiche l'image dans le formulaire
Regarde la pièce jointe 1154593
Le code est celui-ci

VB:

Private Sub CommandButton2_Click()
    Set f = Sheets("Photos")
    For Each s In f.Shapes
        If Left(s.Name, 7) = "Picture" Then
            Me.ComboBox1.AddItem s.Name
        End If
    Next
End Sub

Private Sub ComboBox1_Change()
      Set s = f.Shapes(CStr(Me.ComboBox1))
      s.CopyPicture xlScreen, xlBitmap
      With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
        While .Shapes.Count = 0
          DoEvents
          .Paste
        Wend
        .Export "monimage.jpg", "Jpg"
        .Parent.Delete
      End With
      Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
      Me.Image1.Picture = LoadPicture("monimage.jpg")
      Kill "monimage.jpg"
End Sub

Il te reste juste a adapter à ton besoin
@+ Lolote83

Cliquez pour agrandir...