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.

Muchas Gracias Hector Miguel...
con tu respuesta tengo como para divertirme unas dos semanas..

Gerardo

"Héctor Miguel" escribió en el mensaje
news:

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 even

tos 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.

Hola, Gerardo !

con tu respuesta tengo como para divertirme unas dos semanas..

si te sirve una manita en este punto... ¿me enviarias [una copia de] tu archivo?
[solo quita de la direccion de correo el 'NO...SPAM...PLS']

Saludos,
Héctor.