Note: The other languages of the website are Google-translated. Back to English

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

Supponendo che tu abbia inserito un elenco di immagini in una colonna e abbinato le dimensioni delle immagini con le dimensioni delle celle come mostrato nell'immagine sottostante. Poiché l'immagine inserita sembra piccola, potrebbe essere necessario ingrandirla per alcuni scopi. Questo articolo ti mostrerà il metodo per ingrandire un'immagine quando fai clic su di essa in Excel e ripristinare le dimensioni originali con il secondo clic.

Ingrandisci l'immagine quando fai clic su di essa con il codice VBA


Ingrandisci l'immagine quando fai clic su di essa con il codice VBA


Il seguente codice VBA può aiutarti ad ingrandire un'immagine quando fai clic su di essa in Excel. Si prega di fare quanto segue.

1. Fare clic con il pulsante destro del mouse sull'immagine che si desidera ingrandire semplicemente facendo clic su di essa, quindi fare clic Assegna macro dal menu contestuale. Vedi screenshot:

2. Nel Assegna macro finestra di dialogo, fare clic su New pulsante.

3. Nel spuntare Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice VBA sottostante tra i file Sub e End Sub codici. Vedi screenshot:

Codice VBA: ingrandisci l'immagine facendo clic su di essa 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

Note:: Nel codice è possibile assegnare le grandi dimensioni dell'immagine nel codice big = 3.

4. Quindi premere il pulsante altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.

D'ora in poi, quando si fa clic sull'immagine, verrà ingrandita alla dimensione specificata e fare nuovamente clic per ripristinare le dimensioni originali come mostrato di seguito.


Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (9)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Maravilloso funzione perfetta!!!.
Hay forma que la imagen quede en el cento de la pantalla, solo es una oncesion, nada mas, la macro anda muy bien
Questo commento è stato fatto dal moderatore sul sito
Questo codice funziona bene
Ma quando apri la cartella di lavoro una seconda volta, le immagini risultano sfocate
Questo commento è stato fatto dal moderatore sul sito
quando hai inserito il codice e premi salva le foto diventano sempre più piccole... ottima idea ma non funziona temo...
Questo commento è stato fatto dal moderatore sul sito
Questo è quello che sto cercando ma non funzionerà con il mio excel 2016. Ricevo un messaggio di errore Application.caller = Error 2023
Questo commento è stato fatto dal moderatore sul sito
Ciao, sto cercando di modificare i valori grande (1) e piccolo (0.1) ma la macro non funziona correttamente. Dopo alcuni clic l'immagine non si modifica :(
Questo commento è stato fatto dal moderatore sul sito
La Macro funziona, il problema è che quando ridimensioni l'immagine nella macro, se vai sotto 1 e salvi, l'immagine perderà la sua qualità :(
Questo commento è stato fatto dal moderatore sul sito
So che un jpg perde qualità ogni volta che viene salvato. Ecco perché si consiglia agli utenti di salvare con un nuovo nome file. Questo potrebbe essere il motivo per cui le persone che provano a utilizzare questa macro finiscono con le immagini sfocate. Un approccio migliore sarebbe quello di avere due immagini: una grande e una piccola della stessa foto. Il piccolo viene posizionato nella cella, il grande in un foglio diverso, stesso file. Quindi utilizzare il codice per mostrare l'immagine grande quando si fa clic sull'immagine piccola o si passa il mouse sopra. Per di qua. nessuna delle immagini viene ridimensionata e quindi non dovrebbe perdere qualità. Non sono sicuro che Kutools sia in grado di farlo.
Questo commento è stato fatto dal moderatore sul sito
Non funziona
Questo commento è stato fatto dal moderatore sul sito
Lösung zu verpixelte Bilder
Ich hatte dasselbe Problem mit den verpixelten Bildern. Du must in den Einstellungen etwas ändern und zwar:
Unter Datei/Optionen/Erweitert unter dem Punkt "Bildgröße und -Qualität" einen Hacken bei "Bilder nicht in Datei komprimieren" setzen. Dann zeigt es die Bilder nicht mehr verpixelt an. LG
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite