Abrir y cerrar imagen en excell al hacer click

hola, 'anonimo/a' !

... tengo una hoja... con los alumnos de un centro... diferentes botones accedo a sus nombres, direcciones, cursos u otros datos.
Como puedo hacer para que si deseo... ver la foto del alumno, aparezca y desaparezca al hacer clik en alguna celda o boton.

[en tanto te animas a comentar algun detalle mas 'concreto'] :)) ...
ve si te sirve [como punto de partida] alguna de las siguientes conversaciones: -> http://tinyurl.com/8nszd

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

Te paso un archivo sencillo de lo que deseas hacer, aunque para algo mas
completo apenas mandes un ejemplo del archivo que deseas trabajar.

Para realizarlo y manejar el contro lde imagenes te comento como:

Activas la barra de herramientas de Vbasic.
Dentro de la barra seleccionas el boton de herramientas que aparece alli,
Al momento te debe de aparecer la barra de herramientas formularios.
Desde alli insertar una etiqueta como se muestra en el archivo y listo.
modifica el path donde se encuentran las imagenes que deseas manejar.
Espero te sirva.
Saludos


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strpath As String
strpath = "C:\Documents and Settings\Admin\Mis documentos\Mis imágenes\"
f = ActiveCell.Row
c = ActiveCell.Column
'MsgBox c
If f > 2 And f < 16 And c = 2 Then Image1.Picture = LoadPicture(strpath &
ActiveCell.Value) Else End
' recuerda poner el nombre de las imagenes dentro de la columna indicada
End Sub

Hola Hector,

Tengo una hoja con los alumnos, cada fila una alumno, columnas datos del
mismo, una de ellas con el nº del alumno = al nº de la foto y quiero que
pinchando? me salga su foto, que está en otra carpeta con todas las fotos de
los alumnos.
Yo solo sé crear un botón, asignarlo a una macro y al pincharlo hacer
funcionar los eventos de la macro.
Lo consigo asignando un botón de macro con formulario de imagen para cada
alumno y me funciona, pero son 300-400 alumnos y el fichero se me está
haciendo muy pesado y un lío de formularios, así que he parado.
Cuando entré en la ruta que me diste pensé que ya estaba solucionado porque
había varias exposiciones sobre lo que quería hacer, pero llevo días
intentandolo y me es imposible, por más vueltas y variaciones que efectúo en
el fichero.
El problema es que cargo tu rutina " Private Sub
Worksheet_SelectionChange(ByVal Target As Range).", en este caso en
el "módulo de código de la hoja" y ahí me pierdo porque no se como hacerlo
andar.
Solo sé que no se nada, me podrías ayudar.
Un saludo


Asier Alcu


"Héctor Miguel" escribió:

hola, 'anonimo/a' !

> ... tengo una hoja... con los alumnos de un centro... diferentes botones accedo a sus nombres, direcciones, cursos u otros datos.
> Como puedo hacer para que si deseo... ver la foto del alumno, aparezca y desaparezca al hacer clik en alguna celda o boton.

[en tanto te animas a comentar algun detalle mas 'concreto'] :)) ...
ve si te sirve [como punto de partida] alguna de las siguientes conversaciones: -> http://tinyurl.com/8nszd

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

hola, asier !

Tengo una hoja con los alumnos, cada fila una alumno, columnas datos del mismo
una de ellas con el nº del alumno = al nº de la foto y quiero que pinchando?
me salga su foto, que está en otra carpeta con todas las fotos de los alumnos.
Yo solo sé crear un botón, asignarlo a una macro y al pincharlo hacer funcionar los eventos de la macro.
Lo consigo asignando un botón de macro con formulario de imagen para cada alumno y me funciona
pero son 300-400 alumnos y el fichero se me está haciendo muy pesado y un lío de formularios, así que he parado.
Cuando entré en la ruta que me diste pensé que ya estaba solucionado porque había varias exposiciones sobre lo que quería hacer
pero llevo días intentandolo y me es imposible, por más vueltas y variaciones que efectúo en el fichero.
El problema es que cargo tu rutina " Private Sub Worksheet_SelectionChange(ByVal Target As Range)."
en este caso en el "módulo de código de la hoja" y ahí me pierdo porque no se como hacerlo andar.
Solo sé que no se nada, me podrías ayudar.

[creo que]... para no trabajar tan... 'a la distancia' y andar 'suponiendo' las posibles eventualidades del caso...
[si quieres]... podrias enviarme [una copia 'representativa' de] el archivo que mencionas ?
y comentar/incluir si estas usando formularios o si podrias prescindir de ellos :))
o si prefieres ambas alternativas [con y sin formularios ;)

solo quita de la direccion que aparece el 'NO...SPAM...PLS' :D

saludos,
hector.

p.d. en ZIP... plis :))

Hola Hector,
Al final conseguí hacer andar el primer código que me enviastes y que saca
la imagen en "F1:h21", solucionando el problema de los alumnos superiores al
nº 38 poniendo la imagen en otra hoja y mediante un botón de macro mandar a
la hoja de la foto a la vez que cargaba el nombre de la imagen en la celda
"a1" y con otro botón volver a la hoja de "alumnos".
De todas las maneras voy a trabajar el nuevo que me has mandado en el
fichero de muestra, pues lo he probado, me funciona muy bien y es mucho más
ágil.
Antes de trabajarlo para adaptarlo a mi fichero y con el fin de entender
bien lo que hago, quisiera que me explicaras dos cosas. Qué hace la función
'.Top = (CellsTarget.Row, "a").Top' y como/donde se controla el tamaño de la
foto?
Lo demás creo que lo entiendo y mientras voy probando.

Un saludo
Asier Alcu


"Héctor Miguel" escribió:

hola, asier !

> Tengo una hoja con los alumnos, cada fila una alumno, columnas datos del mismo
> una de ellas con el nº del alumno = al nº de la foto y quiero que pinchando?
> me salga su foto, que está en otra carpeta con todas las fotos de los alumnos.
> Yo solo sé crear un botón, asignarlo a una macro y al pincharlo hacer funcionar los eventos de la macro.
> Lo consigo asignando un botón de macro con formulario de imagen para cada alumno y me funciona
> pero son 300-400 alumnos y el fichero se me está haciendo muy pesado y un lío de formularios, así que he parado.
> Cuando entré en la ruta que me diste pensé que ya estaba solucionado porque había varias exposiciones sobre lo que quería hacer
> pero llevo días intentandolo y me es imposible, por más vueltas y variaciones que efectúo en el fichero.
> El problema es que cargo tu rutina " Private Sub Worksheet_SelectionChange(ByVal Target As Range)."
> en este caso en el "módulo de código de la hoja" y ahí me pierdo porque no se como hacerlo andar.
> Solo sé que no se nada, me podrías ayudar.

[creo que]... para no trabajar tan... 'a la distancia' y andar 'suponiendo' las posibles eventualidades del caso...
[si quieres]... podrias enviarme [una copia 'representativa' de] el archivo que mencionas ?
y comentar/incluir si estas usando formularios o si podrias prescindir de ellos :))
o si prefieres ambas alternativas [con y sin formularios ;)

solo quita de la direccion que aparece el 'NO...SPAM...PLS' :D

saludos,
hector.

p.d. en ZIP... plis :))