Excel Avanzado

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

Excel Avanzado

Símbolos Patrios de Bolivia

| Sin comentarios

Simbolos Patrios Bolivia

Se ha realizado un excel habilitado para macros de los símbolos patrios de Bolivia. En este documento se utiliza el concepto de catálogo de imágenes. Al darle click sobre el código de cada símbolo patrio, al costado aparecerá la imagen de este. Así por ejemplo al darle click a SP001 aparece la imagen del escudo,

escudo

(Para mayor visualización de  la imagen, hacer click en la misma)

en la segunda imagen, se observa que al dar click a SP003 aparece la imagen de la escarapela.

escarapela

(Para mayor visualización de  la imagen, hacer click en la misma)

Catalogo de imágenes (macros )

Este catálogo de imágenes en excel esta programado mediante el siguiente código en VBA:

codigo

(Para mayor visualización de  la imagen, hacer click en la misma)

Private Sub Worksheet_SelectionChange(ByVal Target As Range):  Encabezado del procedimiento que indica que se ejecutará un evento o acción cuando se cambie la selección de un objeto, en este caso una celda. Recibe como parámetro "Target" que es el valor de la celda seleccionada.

On Error GoTo control: Esta linea sirve para controlar el programa en caso de un error, si existe error entonces salta hasta donde dice

control:
Image1.Picture = Nothing
Resume Next

Este pedazo de código solo hace que el objeto Image1 no tenga ningún valor.

If Not Intersect(Target, Range("B13:B18")) Is Nothing Then: Aquí indicamos el rango donde se encuentran los códigos de los símbolos patrios.

ruta = ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg" : Indica la ruta de la imagen seleccionada a mostrar.

Image1.Picture = LoadPicture(ruta): Carga la imagen en el objeto Image1

Cabe mencionar que ActiveWorkbook.Path indica el sitio donde se encuentra el archivo excel y la carpeta donde se encuentran las imágenes, si ambos se encuentran en el mismo directorio.

Puedes descargar el zip con el programa completo.

Simbolos Patrios Bolivia

Deja una respuesta

Los campos requeridos estan marcados con *.