Adapter Userform à taille de l'image

  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

maval

XLDnaute Barbatruc
Bonjour,

J'ai un userform avec un contrôle image de petite taille.

Lorsque je clique sur cette image je souhaite que l'image s'affiche en taille réelle dans un nouvel userform. en sachant que les images ne sont pas toutes de la même taille.

J'ai donc mis le code suivant:

Code:
 Private Sub UserForm_Initialize()
 
TextBox1.Value = Range("A1").Value
   With UserForm2
    .Width = UserForm2.Image1.Height
    .Height = UserForm2.Image1.Width
 End With
 
 
End Sub

Le problème et que la taille de userform ne change pas.
Comment faire pour agrandir l'userform à la taille réelle de l'image?
Taille moyenne des images est de: 800H x 558L en Pixels
Merci pour votre aide
 
Re : Adapter Userform à taille de l'image

Bonjour ,

Peut être comme cela , mais tout dépend de ton userform , mz boule de cristal étant en panne ...

Code:
Private Sub UserForm_initialize()
 
With UserForm2
    .Picture = .Image1.Picture 'chargement l'image contenue dans userform2
    .Width = .Image1.Picture.Height
    .Height = .Image1.Picture.Width
 
End With
 
Re : Adapter Userform à taille de l'image

Bonjour nono,

Merci de ta réponse mais l'image se copie en double car j'appel l'image avec se code:

Code:
Private Sub TextBox1_Change()
On Error Resume Next
Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".gif")
On Error GoTo 0
 
End Sub

Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Réponses
3
Affichages
298
  • Question Question
Microsoft 365 VBA insert photos
Réponses
12
Affichages
869
Réponses
1
Affichages
580
Compte Supprimé 979
C
Retour