Insert an image into a Userform

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

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

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