Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Lista Pokemon Excel

| 2 comentarios

En el siguiente archivo encontraremos un catálogo de la Pokedex del Juego Pokemon Go.  En el archivo están presentes diversos códigos (149 códigos)  y nombres de cada Pokemon de la Pokedex. La aplicación de la macro se basa en mostrar una imagen al seleccionar el código de cada Pokemon de manera que pueda funcionar como una especie de catálogo o revista, donde no solo observemos el nombre de cada Pokemon sino también su representación gráfica. Como se podrá ver en el archivo de Excel, al estar ubicado en la celda del código de un determinado Pokemon, su imagen respectiva aparecerá en un recuadro en la cabecera.

Sintaxis del catalogo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo control

If Not Intersect(Target, Range("C6:C158")) Is Nothing Then

ruta = ActiveWorkbook.Path & "\carpetadeimagenes\" & Target & ".jpg"

Image1.Picture = LoadPicture(ruta)

Image1.PictureSizeMode = fmPictureSizeModeStretch

End If

Exit Sub

control:

Image1.Picture = Nothing

Resume Next

End Sub

Sólo seleccione el código correspondiente al pokemon (poke01, poke02, ...) para que aparezca la imagen respectiva.

Lista de pokemon en Excel

Lista de pokemon en Excel2

 

NOTA: Para no tener problemas con mostrar las imágenes del catalogo se recomienda descargar  y guardar tanto el archivo Excel y la carpeta de imágenes en una misma carpeta.

Descargar lista de Pokemon en Excel: Lista Pokemon Excel

Elaborado por: Sara Bravo

2 comentarios

  1. Excelente información y muy interesante usar pokemon go 🙂

  2. hola, consulta, como seria si quiero ingresar imagenes en PNG

Deja una respuesta

Los campos requeridos estan marcados con *.