¿Cómo hacer zoom o ampliar las celdas seleccionadas en Excel? 

Como todos sabemos, Excel tiene una función de Zoom que nos ayuda a aumentar el tamaño del valor de las celdas en toda la hoja de cálculo. Pero, a veces, solo necesitamos hacer zoom o ampliar las celdas seleccionadas. ¿Hay alguna buena idea para agrandar solo las celdas seleccionadas en una hoja de cálculo?

Ampliar o hacer zoom en la celda seleccionada con código VBA

Ampliar o hacer zoom en la celda seleccionada con código VBA

Puede que no haya una manera directa de ampliar las celdas seleccionadas en Excel, pero aquí puedo presentar un código VBA como solución alternativa para realizar esta tarea. Por favor, sigue los siguientes pasos:

1. Haz clic derecho en la pestaña de la hoja donde deseas agrandar automáticamente las celdas seleccionadas y luego selecciona Ver código desde el menú contextual. En la ventana abierta de Microsoft Visual Basic para aplicaciones, copia y pega el siguiente código en el Módulo en blanco:

Código VBA: Hacer zoom o ampliar las celdas seleccionadas:

Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xShape As Variant
    Set xRg = Target.Areas(1)
    For Each xShape In ActiveSheet.Pictures
        If xShape.Name = "zoom_cells" Then
            xShape.Delete
        End If
    Next
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
    Application.ScreenUpdating = False
    xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
    Application.ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "zoom_cells"
        With .ShapeRange
            .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 44
                .Visible = msoTrue
                .Solid
                .Transparency = 0
            End With
        End With
    End With
    xRg.Select
    Application.ScreenUpdating = True
    Set xRg = Nothing
End Sub

2. Luego guarda y cierra esta ventana de código. Ahora, cuando selecciones o hagas clic en algunas celdas de datos, estas se ampliarán automáticamente como una imagen, ver captura de pantalla:

Nota: Las celdas seleccionadas volverán a su tamaño original después de seleccionar otras celdas.