Insérer une image dans un Userform
Résolu
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 :)
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 :)
4 réponses
-
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
