Extraer foto automaticamente

hola, José !

... que cuando extraiga ... datos correspondientes a ... una base de datos en excel,
... coloque la foto [de] esa referencia y que esta ... almacenada ... con un hipervinculo al fichero jpg [...]

si 'conviertes' el hipervinculo a [simple] texto en la base de datos con la 'ubicacion' de los archivos jpg
[que 'incluya' directorio/s + nombre_archivo + la EXTension -que inclusive pudiera 'estar' en otra hoja-]
un procedimiento seria 'algo' +/- como lo siguiente:

¿comentas datos adicionales?
saludos,
hector.
-
=> suponiendo que haces un BuscarV para la 'referencia' en la celda 'B7'
y 'obtienes' la ruta a la foto en la celda 'contigua' [C7] [p.e.] =BuscarV(B7,HojaConFotos!base_de_datos,col_foto)
y quieres que la foto se 'ajuste dentro' del rango 'C8:E21' ...
=>copia el siguiente codigo en el modulo de eventos de 'la hoja':
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$7" Then Exit Sub
Dim Foto As Object, Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
If Dir(Range("c7")) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(Range("c7"))
With Range("c8:e21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub