Discussion :

[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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

En vous remerciant d'avance de votre aide précieuse.

[Invité]

Bonjour,

Voir la solution de Patrick TOULON qui fonctionne parfaitement sur mon pc (Excel 2010).

Cordialement.

[casdidier]

Merci pour vos contributions !