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 WithNota: 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?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in