Insertar una imagen en un Userform Resuelto

Question

Hola,  He creado un userform. Cuando añado un control de imagen, ya sea vacío o le ponga una imagen, me aparece un error al lanzar el userform: Error de ejecución 438 Propiedad o método no gestionado por este objeto.  ¿Hay algo particular que debamos hacer para la inserción de una imagen?  Estoy trabajando con Excel 2016.  ¡Gracias! :)  Configuración: Windows / Chrome 58.0.3029.110

michel_m · Answer

Hola,  Lo más serio y completo sobre los controles de un userform https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-K  --  Michel

michel_m · Answer

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) = "" ThenImage1.Picture = LoadPicture("")ElseImage1.Picture = LoadPicture(foto)End IfEnd SubPrivate Sub UserForm_Initialize()lig = 18While Not IsEmpty(Cells(lig, 1))ComboBox1.AddItem Cells(lig, 1)lig = lig + 1WendImage1.PictureSizeMode = fmPictureSizeModeZoomEnd 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

cs_Le Pivert · Answer

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

RachelMartel · Answer

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

Insertar una imagen en un Userform

4 respuestas

Problema de texturas en enshrouded

Reparación automática

Quitar la mancha de marcador del monitor de pc

Visibilidad de iconos de la barra de tareas

Mensaje de error al iniciar

¿dónde se encuentran todas las funciones para cada cuenta?

Reinstalación de w11 imposible tras fallo del pc...

Activación del programa esu para actualizaciones en windows 10

Problema del cursor en doc word

Defender ¿cómo borrar los archivos de cuarentena?