Lista Pokemon Excel

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.

 

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