Come ingrandire un'immagine quando si fa clic su di essa in Excel?

Supponiamo che tu abbia inserito una serie di immagini in una colonna e abbia adattato le dimensioni delle immagini a quelle delle celle, come mostrato nello screenshot sottostante. Poiché l'immagine inserita appare piccola, potresti aver bisogno di ingrandirla per alcuni scopi. Questo articolo ti mostrerà il metodo per ingrandire un'immagine facendo clic su di essa in Excel e ripristinarla alle dimensioni originali con un secondo clic.

Ingrandisci l'immagine al clic con il codice VBA

Ingrandisci l'immagine al clic con il codice VBA

Il seguente codice VBA può aiutarti a ingrandire un'immagine quando fai clic su di essa in Excel. Procedi come segue.

1. Fai clic con il tasto destro sull'immagine che desideri ingrandire semplicemente facendo clic su di essa, quindi seleziona Assegna Macro dal menu contestuale. Vedi screenshot:

2. Nella finestra di dialogo Assegna Macro, fai clic sul pulsante Nuovo.

3. Nella finestra Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice VBA tra le istruzioni Sub e End Sub. Vedi screenshot:

Codice VBA: Ingrandisci immagine al clic in 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: Nel codice, puoi assegnare le dimensioni maggiori dell'immagine nel codice big = 3.

4. Quindi premi contemporaneamente i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

Da ora in poi, quando fai clic sull'immagine, verrà ingrandita alle dimensioni specificate e un secondo clic la ripristinerà alle dimensioni originali, come mostrato negli screenshot sottostanti.

Articoli correlati:

• Come bloccare un'immagine all'interno di una cella in Excel?
• Come inserire dinamicamente un'immagine in una cella basandosi sul valore della cella in Excel?