Afficher une image de mon classeur dans un userform

Daroumx

XLDnaute Nouveau
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.

Code:
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. :D
 

Pièces jointes

  • Test_image.xlsm
    26 KB · Affichages: 33

xhudi69

XLDnaute Accro
Re : Afficher une image de mon classeur dans un userform

Bonsoir Daroumx, le Forum

Tout d'abord:
Code:
Private Sub UserForm1_Initialize()
Non, il faut:
Code:
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 :cool:

@+
 

Pièces jointes

  • Daroumx_TestImage.xlsm
    74.4 KB · Affichages: 87
Dernière édition:

Daroumx

XLDnaute Nouveau
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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088