Mostrar imágenes en un formulario

En un artículo anterior, habíamos visto como mostrar imágenes asociadas a un desplegable, directamente en nuestra hoja de cálculo Excel. En esta ocasión, os muestro una forma de hacer lo mismo, pero incluyendo las imágenes en un formulario, es decir, en un userform.

La técnica en ambos casos es muy similar, así que esto lo que explique en este artículo, estará chupado, para aquellos lectores del blog que ya se hayan leído el artículo o que comentaba en el párrafo anterior.

Como siempre, vamos a ilustrar esta técnica con un sencillo ejemplo. Para ellos, hemos escogido una serie de construcciones, en este caso, torres, de diferentes ciudades, y de diferentes países. Solo hemos puesto unas pocas, para que vosotros añadáis las que creáis convenientes.

Lo primero que vamos a hacer es montar la lista que se muestra en la siguiente imagen, y de paso también crearemos un botón, para asociarlo a un macro, en este caso, al macro que lanza el userform.


Lo siguiente que debemos tener, es una lista con las imágenes, y que necesariamente se llamarán de la misma forma a como aparecen en la columna A de la imagen anterior (evidentemente, sin tener en cuenta la extensión correspondiente, en este caso, jpg):


Ahora procederemos a crear un formulario en Excel, donde incluiremos dos etiquetas (dos label), una para el título del formulario en sí, es decir, un rótulo con el texto "Torres famosas", y otra para mostrar la ciudad y el país donde se encuentra la torre elegida. También incluiremos un ComboBox, donde al desplegarlo, podremos elegir la imagen. Por supuesto, incluiremos también un control de imagen, para que se muestre la imagen elegida en el ComboBox, y finalmente, lo último que incluiremos será un CommandButton para que al pulsar sobre él, se cierre del formulario. Es decir, haremos algo como lo que se muestra en la siguiente imagen:


Ahora solo nos quedará incluir el código que irá asociado a los controles. Comenzaremos con el código del ComboBox, al hacer click sobre él:

Private Sub ComboBox1_Enter() 'En caso de error, que continúe On Error Resume Next 'limpiamos los datos del Combobox ComboBox1.Clear 'Al inciar el formulario, 'seleccionamos la hoja con los datos Hoja1.Select 'Seleccionamos la celda B5 Range("A2").Select 'Vamos a llenar dinámicamente el combobox 'con los nombres de los artículos, hasta 'encontrar una fila vacía Do While Not IsEmpty(ActiveCell) 'ponemos el nombre del producto ComboBox1.AddItem ActiveCell.Value 'bajamos una fila ActiveCell.Offset(1, 0).Select Loop End Sub

Ahora le toca el turno al código que nos servirá para mostrar las imágenes, cada vez que cambiemos el item del desplegable, en nuestro caso, del ComboBox:

Private Sub ComboBox1_Change() 'definimos la ruta donde tenemos el fichero de excel '(que será la misma donde tengamos las imágenes) ruta = ActiveWorkbook.Path 'definimos los nombres de las imágenes imagen = ComboBox1.List(ComboBox1.ListIndex) & ".jpg" 'ahora definimos la ruta y la imagen ruta_e_imagen = ruta & "\" & imagen 'cargamos esa imagen en el cuadro de la imagen Image1.Picture = LoadPicture(ruta_e_imagen) 'ahora ponemos el nombre de la ciudad y el país en el label2 Cells.Find(What:=Replace(imagen, ".jpg", "")).Select Label2 = ActiveCell.Offset(0, 1) & " (" & ActiveCell.Offset(0, 2) & ")" End Sub

Con los dos macros anteriores, lo que hemos hecho, ha sido por un lado llenar el ComboBox al hacer clic en el desplegable (con los datos de la hoja de cálculo), y por otro lado, cada vez que cambiamos el elemento seleccionado en el ComboBox, mostrar la imagen correspondiente a ese elemento seleccionado.

Ahora solo nos quedará incluir el código que tendremos asociado al botón "Cerrar":

Private Sub CommandButton1_Click() 'descargamos el formulario de memoria Unload Me End Sub

Todo el código que hemos visto hasta ahora, va incluido dentro del propio UserForm, pues es el código asociado al mismo. En cambio, este último código, que os incluyo, es para lanzar el formulario en sí, por lo que lo pondremos dentro de un módulo:

Sub Lanzar_formulario() 'lanzamos el formulario UserForm1.Show End Sub

Con esto tenemos todo listo, para mostrar un formulario tan llamativo como este:


Desde aquí podéis descargar un fichero comprimido, que incluye el fichero Excel y las fotos de las torres, que hemos visto en este artículo.