¿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 With

Nota: 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?