comment inserer une image du fichier excel dans une userform

[bbours9]

Bonjour,

Dans mon fichier excel j'ai une image et je voudrait qu'a l'ouverture de mon UserForm l'image se mette dans le cadre image que j'ai créer au départ.

pouvez vous m'aider s'il vous plai

 

[BOISGONTIER]

Re : comment inserer une image du fichier excel dans une userform

Bonsoir,

Image interne dans un formulaire

http://boisgontierjacques.free.fr/fichiers/Images/FormPhotoInterne.xls

JB

 

[bbours9]

Re : comment inserer une image du fichier excel dans une userform

merci mais je voudrais le faire sans la combobox..

 

[BOISGONTIER]

Re : comment inserer une image du fichier excel dans une userform

Bonjour,

Voir PJ

Private Sub UserForm_Initialize()
  Set f = Sheets("photos")
  Set s = f.Shapes("jb")
  s.CopyPicture
  f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
End Sub

JB

 

[bbours9]

Re : comment inserer une image du fichier excel dans une userform

Bonjour.

j'arrive pas a le faire avec mon image a moi..

Peux tu m'expliquer la demarche ..

 

[BOISGONTIER]

Re : comment inserer une image du fichier excel dans une userform

Bonjour,

Il faut ue l'image soit nommée JB:

-Sélectionner l'image.
-En haut à gauche de la barre de formule: JB
-Valider avec Entrée

JB

 

[bbours9]

Re : comment inserer une image du fichier excel dans une userform

Bonjour

Merci beaucoup sa marche nickel. AU départ je n'avais pas mis le nom de l'image a gauche de la barre de formule

 

[Nurbo]

Re : comment inserer une image du fichier excel dans une userform

Juste pour dire un grand merci, cela marche parfaitement !!!