Come ingrandire o zoomare le celle selezionate in Excel? 

Come tutti sappiamo, Excel ha una funzione Zoom per aiutarci ad aumentare la dimensione del valore delle celle nell'intero foglio di lavoro. Ma, a volte, abbiamo bisogno di zoomare o ingrandire solo le celle selezionate. Ci sono buone idee su come ingrandire solo le celle selezionate in un foglio di lavoro?

Ingrandisci o zooma la cella selezionata con il codice VBA

Ingrandisci o zooma la cella selezionata con il codice VBA

Forse non esiste un modo diretto per ingrandire le celle selezionate in Excel, ma qui posso introdurre un codice VBA per gestire questo compito come soluzione alternativa. Si prega di fare quanto segue:

1. Fare clic con il tasto destro sulla scheda del foglio in cui si desidera ingrandire automaticamente le celle selezionate, quindi scegliere Visualizza Codice dal menu contestuale. Nella finestra aperta di Microsoft Visual Basic for applications, copiare e incollare il seguente codice nel modulo vuoto:

Codice VBA: Zoom o ingrandisci le celle selezionate:

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. Quindi salvare e chiudere questa finestra del codice. Ora, quando si selezionano o si cliccano alcune celle di dati, le celle verranno ingrandite automaticamente come un'immagine, vedere lo screenshot:

Nota: Le celle selezionate torneranno alla dimensione originale dopo aver selezionato altre celle.