Zoom en imagenes, solo con macros

[fgraciano]

Hola a todos.

Tengo muchas imágenes "insertadas" en una hoja de excel en tamaño miniatura y necesito generar una macro que haga zoom únicamente en la foto seleccionada y luego vuelva a su tamaño original.

Se les ocurre alguna forma ?

Gracias

Fernando

[JoaoM]

Tienes 1 mensaje en el foro, parece que te registraste para hacer tu pregunta y solicitud de ayuda peeeeeerooooo, NO leíste las normas

[Antoni]

Te dejo 3 macros, ponlas en un módulo.

Selecciona la hoja con las imágenes y ejecuta la macro:

AsignarMacroImágenes y guarda el archivo

El resto va solo, click para ampliar la imagen, click para quitar el zoom.

Sub AsignarMacroImágenes()

Application.ScreenUpdating = False

For Each imagen In ActiveSheet.Shapes

   imagen.Select

   Selection.OnAction = "Zoom"

Next

ActiveCell.Select

End Sub[/CODE]

[CODE]Sub EliminarZoom()
ActiveSheet.Shapes(Application.Caller).Delete
ActiveCell.Select
End Sub[/CODE]

[CODE]Sub Zoom()
Application.ScreenUpdating = False
ActiveSheet.Shapes(Application.Caller).Select
Selection.Copy
ActiveSheet.Paste
With Selection
.OnAction = "EliminarZoom"
.ShapeRange.ZOrder msoBringToFront
.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
End With
ActiveCell.Select
End Sub
[/CODE]

[Fleming]

[uSER=196950]@fgraciano[/uSER]. Debes indicar si te sirvió la ayuda, para cerrar el tema

[fgraciano]

[uSER=46507]@Macro Antonio[/uSER], gracias por el aporte.

El efecto parece ser el que busco.

Me surge la duda de cual de las 3 macros debo asignar a la imagen, porque lo que pude observar es que hace el zoom, pero al hacer click nuevamente comienza a borrar el resto de las imágenes... habrá que modificar algo ?

[Antoni]

La primera macro, asigna la macro Zoom a todas las imágenes que tengas en la hoja. Solo debes ejecutarla una vez o cada vez que incorpores imágenes nuevas, después, guarda el archivo.

Cada vez que pulsas una imagen, se crea una copia mas grande, y después, cuando pulsas la imagen ampliada, se elimina.

No entiendo que es lo que te sucede. En todo caso sube el archivo que te da el error tal como está y le echare un vistazo.

[fgraciano]

[uSER=46507]@Macro Antonio[/uSER], te paso el archivo.

Gracias,

Fernando

prueba.rar