Hacer imagen mas grande

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

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