Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Zoom en imagenes, solo con macros

publicado

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

Featured Replies

publicado

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

publicado

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]

publicado

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

publicado
  • Autor

[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 ?

publicado

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.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.