Como ver fotos en rango definido ?

Hola Gerardo !

... base de datos ... de inmuebles ... fotos y ... diez campos de cada registro con links hacia las fotos.
... ver la foto dentro de la hoja ... en un rango definido? (no ... que se abra el programa asociado [...]
... flechas "atras" y "adelante" para en el mismo espacio ver todas las fotos asociadas a ese registro [...]

una posilibidad [que inclusive pudiera 'estar' en 'otra' hoja -diferente de la 'base de datos'-] seria...
suponiendo que los 'links' a las fotos 'contienen' ruta + nombre_achivo + EXTension [p.e. c:\fotos\dsc001.jpg]
1.- 'obtener' el registro [fila del inmueble] al que se 'referiran' las fotos, que pudiera ser a traves de...
-o- 'reglas de validacion' [lista desplegable en una celda 'especifica']
-o- incrustando [en la hoja] un control combobox, que 'deposite' la seleccion en una celda 'especifica'
'vinculando' [el 'origen' de la lista] al listado de inmuebles en la 'base de datos' [1er columna -supongo-]
te sugiero rangos 'con nombre' -ya sea 'estaticos' o 'dinamicos'-, por si la lista fuera '[de]crececiente'
2.- 'obtener' el campo con [la columna que se refiere al '#' de] la foto que se habra de mostrar
para esta parte [sugiero] incrustar [en la hoja] un control scrollbar [ya sea en posicion 'horizontal' o 'vertical']
'limitando' su desplazamiento 'de' 1 a 10 y 'vinculando' [tambien] el 'resultado' a OTRA celda 'especifica'
3.- 'rescatar' las coordenadas [fila-inmueble / columna-foto] con la 'ubicacion' de la foto que sera mostrada
aqui podrias usar una funcion del tipo BuscarV(celda_inmueble,base_de_datos,columna_foto)
[o combinando funciones como Indice, DesRef, etc.]
4.- para 'automatizar' la actulaizacion de cada foto, puedes usar los eventos de 'la hoja' [en 'su' modulo de codigo]
[p.e. suponiendo que la celda con la 'localizacion' de la foto fuera 'D7'...
y que quieres que la foto 'se ajuste dentro' del rango "E7:D21" de la hoja ...
=> dependiendo de tu version de excel, podrias necesitar uno u otro de los siguientes eventos:
Private Sub Worksheet_Change(ByVal Target As Range) -o- Private Sub Worksheet_Calculate()
en el modulo de codigo de 'la hoja' en alguno de los eventos mencionados == 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("d7")) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(Range("d7"))
With Range("e7:d21")
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

Saludos,
Héctor.