Insertar una imagen en un Userform

Hola
adjunto una pequeña demo

el userform
https://mon-partage.fr/f/zMqdl04x/
previsto para fotos en formato JPG, pero se pueden mezclar con varios formatos (hazme saber)

el código del usf

Private Sub ComboBox1_Change()
foto = ThisWorkbook.Path & "\" & ComboBox1.Value & ".jpg"
If Dir(foto) = "" Then
Image1.Picture = LoadPicture("")
Else
Image1.Picture = LoadPicture(foto)
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

las fotos deben estar en la misma carpeta que el usf
tú reemplazas mi lista (A18:A24) por el nombre de tus fotos

esperando que haya sido útil

Michel

Hola,

ver esto:

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

con la traducción:

Si haces clic en el botón gris con tres puntos, aparecerá un cuadro de diálogo que te permitirá elegir una imagen para tu imagen.

--
@+ El Pájaro Carpintero

Aquí está la solución que encontré para mi problema.

Tenía este código para redimensionar el formulario de usuario a pantalla completa. Tenía un error cuando intentábamos redimensionar los controles de Imagen. Así que añadí el "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