Código para consulta con foto | 2do Medio

Estimad@s estudiantes:

Debido al interés que ha surgido con la actividad en Excel para 2do medio y el esfuerzo que han realizado en el taller, les dejo a continuación el código necesario para programar la acción requerida (que aparezca una foto asociada al registro consultado):
____________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ruta As String
On Error Resume Next
If Target.Address = "$C$6" Then
nombre = Target.Value
Ruta = "C:\Users\Profesores\Desktop\Fotos Excel\" & nombre & ".jpg"
If Existe(Ruta) Then
ActiveSheet.Image1.Picture = LoadPicture(Ruta)
Else
ActiveSheet.Image1.Picture = LoadPicture("C:\Users\Profesores\Desktop\Fotos Excel\error.jpg")
End If
End If
End Sub
Function Existe(Archivo As String) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Existe = True
Else
Existe = False
End If
End Function
_______________________________________________________________________

Este código fue un aporte de Vernon Pardo y Valentina Jaramillo del 2doA HC. Ellos lo encontraron en la web (luego informaremos de dónde lo obtuvieron) y lo editaron para aplicarlo en su planilla.

En clases la vamos a editar y explicar en detalle su estructura y como se va a insertar en nuestro archivo. Esta MACRO es de mucha utilidad y la utilizaremos en ejercicios a futuro.

Otro dato: Las fotos deben renombrarlas con los códigos de la base de datos correspondientes a cada una de ellas, es decir si la foto de Juan se llama "DCIM0012" deben cambiarle el nombre por "100".

Saludos cordiales,

El Profe

Fotos para función BUSCARV( )

Estimad@s estudiantes:

En el siguiente link podrán descargar una carpeta comprimida que contiene 7 fotos para el ejercicio en EXCEL con la función BUSCARV( ), en donde se debe asociar una foto a cada registro, la cual debe aparecer cuando se ingrese el código correspondiente.

Descargar archivo AQUÍ

Saludos cordiales,

El Profe