Abrir y cerrar imagen en excell al hacer click

hola, asier !

... conseguí hacer andar el... codigo... que saca la imagen en "F1:h21"
... solucionando el problema de los alumnos superiores al num. 38 poniendo la imagen en otra hoja [...]
... el nuevo... en el fichero de muestra... funciona... y es... mas agil.
... para adaptarlo... y con el fin de entender lo que hago... dos cosas.
Que hace la funcion '.Top = (CellsTarget.Row, "a").Top'
y como/donde se controla el tama#o de la foto?
Lo demas creo que lo entiendo y mientras voy probando.

1) con relacion a la instruccion: -> '.Top = (CellsTarget.Row, "a").Top'
le indica al control image [incrustado en la hoja] a que fila 'debe alinear' su posicion 'Top'...
-> muestra el control [y la imagen] en la columna 'indicada' -> justo en la fila de la celda seleccionada ;)

2) las dimensiones del control, las puedes modificar...
a) por codigo [p.e. en el modulo de 'la hoja'] -> Me.Image1.Width = o... Me.Image1.Height = .
b) estando en modo de 'dise#o'... -> las modifica en la ventana de propiedades en el editor de vba
c) si usas la opcion b... -> revisa tambien la propiedad que 'auto-ajusta' el control a la imagen que se muestre :))

3) lo que no recuerdo... es si en el codigo deje la forma 'completa' de buscar la ruta en el libro del codigo...
[es decir] si le agregue el separador de rutas '\' antes del sub-directorio donde se almacenarian las fotos [p.e.]
ThisWorkbook.Path & "Fotos\ o...
ThisWorkbook.Path & "\Fotos\

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector,
Efectivamente en el código que me enviaste le faltaba la barra ' \' y al
principio no me funcionó, pero estoy acostumbrado a volverme loco varias
veces, antes de conseguir que me funcione lo que deseo, analizando qué hacía
cada evento intuí que el fallo estaba en el Path y tras varios cambios e
intentos, conseguí (como casi siempre de potra) dar con ello.
No puedo prometer no molestar más, pues esto es mi droga, me tiro varias
semanas para hacer algo y cuando lo consigo mientras me relajo, teniendo muy
claro que las posibilidades de escell son ilimitadas, ya estoy maquinando que
más cosas añadir para mejorar el fichero o crear otros nuevos.

Muchas gracias por todo.

Asier Alcu


"Héctor Miguel" escribió:

hola, asier !

> ... conseguí hacer andar el... codigo... que saca la imagen en "F1:h21"
> ... solucionando el problema de los alumnos superiores al num. 38 poniendo la imagen en otra hoja [...]
> ... el nuevo... en el fichero de muestra... funciona... y es... mas agil.
> ... para adaptarlo... y con el fin de entender lo que hago... dos cosas.
> Que hace la funcion '.Top = (CellsTarget.Row, "a").Top'
> y como/donde se controla el tama#o de la foto?
> Lo demas creo que lo entiendo y mientras voy probando.

1) con relacion a la instruccion: -> '.Top = (CellsTarget.Row, "a").Top'
le indica al control image [incrustado en la hoja] a que fila 'debe alinear' su posicion 'Top'...
-> muestra el control [y la imagen] en la columna 'indicada' -> justo en la fila de la celda seleccionada ;)

2) las dimensiones del control, las puedes modificar...
a) por codigo [p.e. en el modulo de 'la hoja'] -> Me.Image1.Width = o... Me.Image1.Height = .
b) estando en modo de 'dise#o'... -> las modifica en la ventana de propiedades en el editor de vba
c) si usas la opcion b... -> revisa tambien la propiedad que 'auto-ajusta' el control a la imagen que se muestre :))

3) lo que no recuerdo... es si en el codigo deje la forma 'completa' de buscar la ruta en el libro del codigo...
[es decir] si le agregue el separador de rutas '\' antes del sub-directorio donde se almacenarian las fotos [p.e.]
ThisWorkbook.Path & "Fotos\ o...
ThisWorkbook.Path & "\Fotos\

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.