¿Cómo ampliar una imagen al hacer clic en ella en Excel?
Supongamos que has insertado una lista de imágenes en una columna y has ajustado los tamaños de las imágenes al tamaño de las celdas, como se muestra en la captura de pantalla a continuación. Como la imagen insertada se ve pequeña, es posible que necesites ampliarla por algún motivo. Este artículo te mostrará un método para agrandar una imagen al hacer clic en ella en Excel y restaurarla a su tamaño original con un segundo clic.
Ampliar imagen al hacer clic en ella con código VBA
Ampliar imagen al hacer clic en ella con código VBA
El siguiente código VBA puede ayudarte a ampliar una imagen al hacer clic en ella en Excel. Por favor, sigue los siguientes pasos.
1. Haz clic derecho en la imagen que deseas ampliar simplemente haciendo clic en ella, luego haz clic en Asignar Macro desde el menú contextual. Ver captura de pantalla:
2. En el cuadro de diálogo Asignar Macro, haz clic en el botón Nuevo.
3. En la ventana emergente de Microsoft Visual Basic for Applications, copia y pega el siguiente código VBA entre las líneas Sub y End Sub. Ver captura de pantalla:
Código VBA: Ampliar imagen al hacer clic en ella en Excel
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End WithNota: En el código, puedes asignar los tamaños grandes de la imagen en el código big = 3.
4. Luego presiona simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic for Applications.
A partir de ahora, cuando hagas clic en la imagen, esta se ampliará al tamaño que especificaste, y al hacer clic nuevamente se restaurará a su tamaño original, como se muestra en las capturas de pantalla a continuación.
Artículos relacionados:
- ¿Cómo bloquear una imagen dentro de una celda en Excel?
- ¿Cómo insertar una imagen dinámicamente en una celda basada en el valor de la celda en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos