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

[AlexandrB]

Bonjour ,

J'ai des photos dans mon fichier Excel dans la feuille "photos" , je voudrai les inclure dans mon User Forme ( USF_Contrôle) dans le grand cadre a gauche ( voir photo) , et qu'elle change en fonction du point de contrôle .
Exemple point de contrôle 1 = photo 01 , point de contrôle 2 = photo 02 , j'avais une macro qui marcher mais impossible de remettre la main dessus.

Merci d'avance .

 

[kiki29]

Salut, à voir : Créer un organigramme et un trombinoscope dans Excel

 

[Lolote83]

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

 

[AlexandrB]

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

bonjour , merci lolote83 , mais trop de choix possible sur son site , et je trouve pas se que je veux faire ou alor c'est expliquer d'une autre façon.

 

[Lolote83]

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

Le code est celui-ci

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

 

[AlexandrB]

merci

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

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

Merci