Image dans un UserForm
ThibaultBP
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je code actuellement un projet info en VBA et je n'en fais que depuis quelques semaines.
J'ai une question que je n'arrive pas à résoudre à savoir importer une image dans mon UserForm depuis mon PC:
Private Sub Image1_Change()
Image1.Picture =LoadPicture("C:\...jpg")
End Sub
Ce simple code ne marche pas , quand j'execute , l'emplacement de l'image de mon userform reste vide.
Si un d'entre vous aurait une solution , je vous en serais très reconnaissant.
Merci ,
Je code actuellement un projet info en VBA et je n'en fais que depuis quelques semaines.
J'ai une question que je n'arrive pas à résoudre à savoir importer une image dans mon UserForm depuis mon PC:
Private Sub Image1_Change()
Image1.Picture =LoadPicture("C:\...jpg")
End Sub
Ce simple code ne marche pas , quand j'execute , l'emplacement de l'image de mon userform reste vide.
Si un d'entre vous aurait une solution , je vous en serais très reconnaissant.
Merci ,
A voir également:
- Image dans un UserForm
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
- Reduire taille image - Guide
- Légender une image - Guide
- Image gratuite - Guide
5 réponses
Bonjour,
Impossible, il faut un evenement Change pour que ce code s'execute et pas sur que l'image apparaisse, de meme que l'evenement Click
pour tester, mettez votre code dans un bouton ensuite regardez ce qui doit faire changer l'image
Private Sub Image1_Change()
Image1.Picture =LoadPicture("C:\...jpg")
End Sub
Impossible, il faut un evenement Change pour que ce code s'execute et pas sur que l'image apparaisse, de meme que l'evenement Click
pour tester, mettez votre code dans un bouton ensuite regardez ce qui doit faire changer l'image
J'ai essayé et le bouton marche et fait apparaitre l'image.
Mais j'aimerais que l'image puisse apparaitre sans avoir a appuyer sur le bouton , je ne sais pas si c'est réalisable.
J'ai également un problème pour faire apparaitre l'image que je veux:
Private Sub CommandButton1_Click()
Dim a As String
a = Qh
Image3.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\&a&.jpg")
Image4.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\Kd.jpg")
Image5.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\Ac.jpg")
End Sub
(Mon programme est un jeu de carte , je cherche a faire apparaitre la dame de carreaux dans ce cas précis)
Merci
Mais j'aimerais que l'image puisse apparaitre sans avoir a appuyer sur le bouton , je ne sais pas si c'est réalisable.
J'ai également un problème pour faire apparaitre l'image que je veux:
Private Sub CommandButton1_Click()
Dim a As String
a = Qh
Image3.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\&a&.jpg")
Image4.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\Kd.jpg")
Image5.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\Ac.jpg")
End Sub
(Mon programme est un jeu de carte , je cherche a faire apparaitre la dame de carreaux dans ce cas précis)
Merci
Re,
Image3.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\" & a & ".jpg")
je ne sais pas si c'est réalisable. Il faut un evenement pour faire changer l'image. Qu'est-ce qui ferait que l'image change ???
Image3.Picture = LoadPicture("C:\Users\tbretonpatient\Desktop\" & a & ".jpg")
je ne sais pas si c'est réalisable. Il faut un evenement pour faire changer l'image. Qu'est-ce qui ferait que l'image change ???
"Il faut un evenement pour faire changer l'image. Qu'est-ce qui ferait que l'image change ???"
Le fait que le programme avance dans les lignes de code non ? Je sais que dans d'autres langages c'était possible mais la effectivement en VBA je suis novice donc.
Et la ligne de codes que vous m'avez proposée pour inclure la string me donne une erreur 53..
Le fait que le programme avance dans les lignes de code non ? Je sais que dans d'autres langages c'était possible mais la effectivement en VBA je suis novice donc.
Et la ligne de codes que vous m'avez proposée pour inclure la string me donne une erreur 53..
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question