Afficher image du classeur dans USF

[anismegrine]

Bonjour à tous,

je reviens vers vous car je bloque depuis hier sur un code vba que je n'arrive pas à rédiger.
dans le fichier ci-joint l'exemple de mon problème, je souhaite afficher en fonction de mon choix de liste dans la feuille 2 cellule A1 l'image correspondante dans un userform.
les images sont déja stocké dans la feuille 1 et ont le meme nom que ma liste.

Merci d'avance pour votre aide.

 

[Papou-net]

Re : Afficher image du classeur dans USF

Bonjour anismegrine,

Voici ma proposition :

Sub afficher_image()
Set sh = Sheets("Feuil1")
Set img = sh.Shapes(Feuil1.Range("A1").Value)
img.CopyPicture
sh.ChartObjects.Add(0, 0, img.Width, img.Height).Chart.Paste
sh.ChartObjects(1).Chart.Export Filename:="image.jpg"
sh.Shapes(sh.Shapes.Count).Delete
With UserForm1
  .Image1.PictureSizeMode = fmPictureSizeModeZoom
  .Image1.Picture = LoadPicture("image.jpg")
  Kill "image.jpg"
  .Show
End With
End Sub

J'ai légèrement modifié les propriétés d' Image1 sur ton UserForm, pour améliorer la présentation :

BorderBackStyle = 0 - fmBackStyleTransparent

BorderStyle = 0 - fmBorderStyleNone

Cordialement.

PS : cette macro est inspirée d'un code proposé par JB (BOISGONTIER) sur ce même forum (comment inserer une image du fichier excel dans une userform) en date du 11/11/2011.

 

[anismegrine]

Re : Afficher image du classeur dans USF

Merci infinement pour cette solution et merci aussi à BOISGONTIER maintenat et grâce à vous je peux avancer.