¿Cómo hacer que una imagen que esta en mi userform cambie en función de la opción que elijo en mi combobox?
Tengo un userform con varias combobox y quiero que en función de una de ellas la imagen que tengo como banner en la parte superior cargue una imagen por en función de la opción que se elija en una de las combobx, es decir mi combobox tiene la opción Suc. 1 y quiero que me muestre una imagen de esa sucursal etc. Dentro de la userform.
1 Respuesta
Prueba con esta macro
Ruta es donde tienes la foto
Foto es el nombre de la sucursal más un .jpg para indicarle que foto tiene que tomar del ruta, te aconsejo que las fotos de las sucursales se llamen igual que como están en el combo con eso te evitas un buen de ifs
Sucursal es la ruta completa que tomara VBA para traer la foto
Image1 es el nombre del objeto que contendrá la foto, le puse un modo para que se la imagen se ajuste el objeto image y no quede deformada
Cambia cualquiera de estos parámetros ajustándolo a lo que ocupas y por ultimo si no encuentra la foto te enviara un mensaje de error.
Private Sub ComboBox1_Change()
foto = ComboBox1.Value & ".jpg"
ruta = "C:\Documents and Settings\Propietario\Mis documentos\Mis imágenes"
sucursal = ruta & "\" & foto
On Error Resume Next
With Image1
.Picture = LoadPicture(sucursal)
.PictureSizeMode = fmPictureSizeModeStretch
End With
If Err.Number > 0 Then MsgBox ("No existe esta foto"), vbInformation, "AVISO"
On Error GoTo 0
End Sub
