Afficher une image de mon classeur dans un userform

[Daroumx]

Bonjour le forum,


Voila j'essaie d'afficher une image présente dans la feuil1 de mon classeur.Malheureusement le code suivant affiche seulement l'userform sans la photo chargée dedans.

Private Sub UserForm1_Initialize()
    Dim Sh As Shape
    Set Sh = Worksheets("Feuil1").Shapes(1)
    Image1.Picture = LoadPicture(Sh)
End Sub

Je met aussi en pièce jointe le classeur test.
En vous remerciant d'avance de votre aide précieuse. 😀

 

[zeltron24]

Re : Afficher une image de mon classeur dans un userform

Bonsoir Daroumx
Voici un exemple que j'ai trouvé sur le forum grace à vbacrumble que je remercie au passage.

 

[xhudi69]

Re : Afficher une image de mon classeur dans un userform

Bonsoir Daroumx, le Forum

Tout d'abord:

Private Sub UserForm1_Initialize()

Non, il faut:

Private Sub UserForm_Initialize()

En PJ ton fichier avec une méthode (il y en a d'autres)

EDIT: Bonsoir Zeltron24, je suis un peut lent ce soir 😎

@+

 

[Daroumx]

Re : Afficher une image de mon classeur dans un userform

Bonjour zeltron24 , xhudi69 , le Forum

Je vous remercie pour vos réponses c'est exactement ce que je cherchais . Je n'ai pas compris grand chose à la formule perso de STEPHEN BULLEN ... peut être que j'y arriverais un jour ^^'

En tout cas mille mercis pour votre aide 😉