Insérer une image dans un Userform Résolu

Question

Bonjour, 

J'ai créé un userform. Lorsque j'ajoute un contrôle d'image, qu'il soit vide ou que j'y mette une image, j'ai une erreur en lançant le userform : Erreur d'exécution 438 Propriété ou méthode non gérée par cet objet.

Est-ce qu'on doit faire quelque chose de particulier pour l'insertion d'une image?

Je travaille avec Excel 2016.

Merci :)

Configuration: Windows / Chrome 58.0.3029.110

michel_m · Answer

Bonjour,

Le + sérieux et complet sur les contrôles d'un userform
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-K

michel_m · Answer

Bonjour
ci joint petite démo

l'userform
https://mon-partage.fr/f/zMqdl04x/ 
prévu pour des photos au format JPG mais on peut mixer avec plusieurs formats (me faire signe)

le code de l'usf
Private Sub ComboBox1_Change()photo = ThisWorkbook.Path & "\" & ComboBox1.Value & ".jpg"If Dir(photo) = "" ThenImage1.Picture = LoadPicture("")ElseImage1.Picture = LoadPicture(photo)End IfEnd SubPrivate Sub UserForm_Initialize()lig = 18While Not IsEmpty(Cells(lig, 1))ComboBox1.AddItem Cells(lig, 1)lig = lig + 1WendImage1.PictureSizeMode = fmPictureSizeModeZoomEnd Sub

les photos doivent ^tre dans le m^me dossier que l'usf
tu remplaces ma liste ( A18:A24)par le nom de  tes photos

en espèrant que ça aura été utile
 
 Michel

cs_Le Pivert · Answer

Bonjour,

voir ceci:

http://www.homeandlearn.org/load_an_image_into_an_imagebox.html 

avec la traduction:

Si vous deviez cliquer sur le bouton gris avec les trois points, vous verrez apparaître une boîte de dialogue vous permettant de choisir une image pour votre image.

RachelMartel · Answer

Voici donc la solution que j'ai trouvé pour mon problème.

J'avais ce code pour redimensionner l'userform en plein écran. J'avais un bug lorsque qu'on était rendu à redimensionner les contrôles Image. J'ai donc ajouté le "On Error Resume Next"

Dim ctl As Control
Dim ratiow As String
Dim ratioh As String
 
ratiow = Application.Width / Me.Width
ratioh = Application.Height / Me.Height
Me.Left = 0
Me.Top = 0
Me.Width = Application.Width
Me.Height = Application.Height
For Each ctl In Me.Controls
On Error Resume Next
  ctl.Left = ctl.Left * ratiow
  ctl.Top = ctl.Top * ratioh
  ctl.Width = ctl.Width * ratiow
  ctl.Height = ctl.Height * ratioh
  ctl.FontSize = ctl.FontSize * ratioh
Next

Insérer une image dans un Userform

4 réponses

Votre réponse

Discussions similaires