Símbolos Patrios de Portugal

El siguiente catálogo muestra los principales símbolos patrios de la República Portuguesa. Sólo se tiene que seleccionar cualquiera de las celdas de la columna Código  e inmediatamente se podrá visualizar  la imagen del símbolo patrio. Cabe resaltar que al ir cambiando en la selección de las celdas de la columna código, la imagen irá cambiando según el código respectivo.

Para realizar este catálogo se siguieron los siguientes pasos:

1. Se creo el cuadro con los códigos, nombres y descripción de los símbolos patrios en una hoja de cálculo
2. Se descargó las imágenes de los símbolos patrios, se les puso como nombre los códigos del cuadro respectivamente y se guardaron el la carpeta: "carpetadeimagenes"
3. Se insertó un Control Activex de "Imagen" con un tamaño adecuado al costado del cuadro.
4. Se selecciona la hoja de cálculo donde está el cuadro y en Visual Basic  utilizamos el siguiente código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo control
If Not Intersect(Target, Range("B15:B20")) Is Nothing Then

ruta = ActiveWorkbook.Path & "\carpetadeimagenes\" & Target & ".jpg"
Image1.Picture = LoadPicture(ruta)

End If

Exit Sub

control:
Image1.Picture = Nothing
Resume Next

End Sub

Estas son algunas de las macros, las cuales tienen el siguiente rol:

• Selection_Change: cada vez que se selecciona una de las celdas del rango indicado : Range(“B15:B20”), las imágenes cambiarán.
• ByVal Target As Range: Permite que el argumento no afecte el valor de la variable que sigue.
• LoadPicture: Sube y muestra la imagen en el Control Activex en el formato señalado (p.e. jpg)

*Gracias al siguiente artículo del blog pude realizar el presente catálogo:

Catálogos de imágenes con Macros

Aquí el catálogo de Símbolos Patrios de Portugal:

Simbolos patrios de portugal