Insert an image into a Userform Solved

Question

Hello,

I created a userform. When I add an image control, whether it is empty or I insert an image, I get an error when launching the userform: Runtime error 438 Property or method not handled by this object.

Do we need to do anything special for inserting an image?

I'm working with Excel 2016.

Thank you :)

Configuration: Windows / Chrome 58.0.3029.110

michel_m · Answer

Hello,  The most serious and comprehensive on userform controls https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-K  --  Michel

michel_m · Answer

Hello
attached is a small demo

the userform
https://mon-partage.fr/f/zMqdl04x/
designed for JPG photos but we can mix it with several formats (let me know)

the code of the usf

Private Sub ComboBox1_Change()
photo = ThisWorkbook.Path & "\" & ComboBox1.Value & ".jpg"
If Dir(photo) = "" Then
Image1.Picture = LoadPicture("")
Else
Image1.Picture = LoadPicture(photo)
End If
End Sub

Private Sub UserForm_Initialize()
lig = 18
While Not IsEmpty(Cells(lig, 1))
ComboBox1.AddItem Cells(lig, 1)
lig = lig + 1
Wend
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

the photos must be in the same folder as the usf
you replace my list (A18:A24) with the names of your photos

hoping it was useful

Michel

cs_Le Pivert · Answer

Hello,

see this:

http://www.homeandlearn.org/load_an_image_into_an_imagebox.html

with the translation:

If you click the gray button with the three dots, a dialog box will appear allowing you to choose an image for your image.

--
@+ The Woodpecker

RachelMartel · Answer

Here is the solution I found for my problem.

I had this code to resize the userform to full screen. I had a bug when resizing the Image controls. So I added the "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

Insert an image into a Userform

4 answers

Unable to download

Uninstall totaladblock

Sony wh-1000xm5 not turning on after getting wet

Google photos transfer

Surface pro 4 tablet fully stuck, what to do ??

Broken black screen with talkback enabled and other issues help

Bounced emailsblocked emails

Canon mg6450 printer driver

Texture issues in enshrouded

What to buy for summer 2026