Hacer imagen mas grande

05/06/2006 - 11:15 por Miguel | Informe spam
Hola, en una hoja de excel he insertado campos Image, hay alguna manera
de que al hacerles click se abra otra ventana con la imagen mas grande
o que la imagen se haga mas grande de alguna manera? Y despues que al
hacerle doble click se vuelva a su estado anterior, o algo parecido,
acepto sugerencias.
Muchas gracias de antemano
Un saludoOoOo!

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
06/06/2006 - 08:59 | Informe spam
hola, Miguel !

... en una hoja... he insertado campos Image, hay alguna manera de que al hacerles click
... abra otra ventana con la imagen mas grande o que la imagen se haga mas grande de alguna manera?
Y despues que al hacerle doble click se vuelva a su estado anterior, o algo parecido ...



[por lo pronto... 'algo parecido'] :))
la siguiente macro se la tendrias que asignar a cada objeto 'image' que tengas incrustado en la hoja :-(
[asumiendo que las imagenes estan 'escaladas' diferente del 100% de sus dimensiones originales] -?-

solo 'restablece' las dimensiones originales del objeto... 'espera' 5 segundos [o el tiempo que prefieras] y... 'vuelta p' atras'
-> la otra alternativa [regresarlas a las dimensiones EN la hoja] de un 'segundo click'...
-> tendria que ser a traves de algun formulario [previa 'deteccion' de la escala para las re/conversiones] -?-

saludos,
hector.

en un modulo de codigo 'normal' =='Option Private Module ' <= esta linea la desmarcas DESPUES de asignar la macro a todas las imagenes ;)
Sub Ampliar_imagen()
Dim H_orig As Single, W_orig As Single, _
Back_row As Integer, Back_column As Long
With ActiveWindow
Back_row = .ScrollRow: Back_column = .ScrollColumn
End With
With ActiveSheet.Shapes(Application.Caller)
H_orig = .Height: W_orig = .Width: .ZOrder msoBringToFront
.ScaleHeight 1, True: .ScaleWidth 1, True
ActiveWindow.ScrollRow = .TopLeftCell.Row
ActiveWindow.ScrollColumn = .TopLeftCell.Column
Application.ScreenUpdating = True
Application.Wait Now + TimeValue("0:00:05")
.Height = H_orig: .Width = W_orig
End With
With ActiveWindow
.ScrollRow = Back_row: .ScrollColumn = Back_column
End With: Application.ScreenUpdating = True
End Sub
Respuesta Responder a este mensaje
#2 Miguel
06/06/2006 - 09:20 | Informe spam
Muchas gracias Hector Miguel! Me has sido de gran ayuda!
Un saludoOoOo!

[por lo pronto... 'algo parecido'] :))
la siguiente macro se la tendrias que asignar a cada objeto 'image' que tengas incrustado en la hoja :-(
[asumiendo que las imagenes estan 'escaladas' diferente del 100% de sus dimensiones originales] -?-

solo 'restablece' las dimensiones originales del objeto... 'espera' 5 segundos [o el tiempo que prefieras] y... 'vuelta p' atras'
-> la otra alternativa [regresarlas a las dimensiones EN la hoja] de un 'segundo click'...
-> tendria que ser a traves de algun formulario [previa 'deteccion' de la escala para las re/conversiones] -?-

saludos,
hector.

en un modulo de codigo 'normal' ==> 'Option Private Module ' <= esta linea la desmarcas DESPUES de asignar la macro a todas las imagenes ;)
Sub Ampliar_imagen()
Dim H_orig As Single, W_orig As Single, _
Back_row As Integer, Back_column As Long
With ActiveWindow
Back_row = .ScrollRow: Back_column = .ScrollColumn
End With
With ActiveSheet.Shapes(Application.Caller)
H_orig = .Height: W_orig = .Width: .ZOrder msoBringToFront
.ScaleHeight 1, True: .ScaleWidth 1, True
ActiveWindow.ScrollRow = .TopLeftCell.Row
ActiveWindow.ScrollColumn = .TopLeftCell.Column
Application.ScreenUpdating = True
Application.Wait Now + TimeValue("0:00:05")
.Height = H_orig: .Width = W_orig
End With
With ActiveWindow
.ScrollRow = Back_row: .ScrollColumn = Back_column
End With: Application.ScreenUpdating = True
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida