Excel Downloads Forums - Afficher un message

wilfried_42 · 07/05/2008, 18h35

Bonjour didibzh, spitnolan08

je ne comprends pas ta question alors qu'en regardant ton code, tu as deja la reponse (si j'ai tout compris)

tu mets tes images dans un repertoire exemple : C:\Images

Code:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("C:\Images\image1.gif")
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("C:\Images\image2.GIF")
End Sub

07/05/2008, 18h35	#6 (permalink)
wilfried_42 XLDnaute Barbatruc Date d'inscription: novembre 2006 Localisation: Saint etienne Version Excel : Excel XP (PC) Messages: 3 695	Re : images dans un userform Bonjour didibzh, spitnolan08 je ne comprends pas ta question alors qu'en regardant ton code, tu as deja la reponse (si j'ai tout compris) tu mets tes images dans un repertoire exemple : C:\Images Code: Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.Picture = LoadPicture("C:\Images\image1.gif") End Sub Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.Picture = LoadPicture("C:\Images\image2.GIF") End Sub __________________ salutations Wilfried Plus j'apprends, plus je sais....... plus je sais que je ne sais rien. Venez visiter mon zoo : Cliquez ici il est si petit, un petit click quotidien merci