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

 Come ingrandire o ridurre l'immagine con un clic in Excel?

Supponiamo che ci siano più immagini in un foglio di dimensioni diverse. Hai qualche modo per ingrandire o rimpicciolire queste immagini in una dimensione con un clic? Non esiste una funzionalità integrata per risolverlo, ma in questo articolo introduco un codice VBA per ingrandire o ridurre tutte le immagini nel foglio con un clic.

Ingrandisci e rimpicciolisci le immagini con un clic da VBA


freccia blu freccia destra Ingrandisci e rimpicciolisci le immagini con un clic da VBA

Eseguire i passaggi seguenti per ingrandire o ridurre le immagini con un clic.

1. Fare clic con il pulsante destro del mouse sulla scheda del foglio in cui si desidera ridimensionare le immagini e selezionare Visualizza codice dal menu contestuale.
doc ingrandire l'immagine con un clic 1

2. Nel popping Microsoft Visual Basic per l'applicaziones e incolla il codice sottostante nello script vuoto.

VBA: ingrandisci e rimpicciolisci le immagini con un clic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc ingrandire l'immagine con un clic 2

 

3. Salvare il codice e chiudere la finestra. E quando fai clic su qualsiasi cella della colonna A, tutte le immagini verranno ridotte. Vedi screenshot:
doc ingrandire l'immagine con un clic 3

4. E quando clicchi sulla cella che si trova in alto a destra dell'immagine, l'immagine relativa verrà ingrandita. Vedi screenshot:
doc ingrandire l'immagine con un clic 4

Tipo.Se desideri inserire rapidamente la filigrana in un foglio, prova a utilizzare Kutools per Excel Inserisci filigrana come mostrato nello screenshot seguente. È pienamente funzionante senza limitazioni in 30 giorni, si prega di scaricare e avere una prova gratuita ora.

doc inserisci filigrana

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 (5)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Non funziona
Questo commento è stato fatto dal moderatore sul sito
Scusa, non sapevo perché nel tuo caso non funziona, ma prima di eseguire questo tutorial l'ho testato più volte.
Questo commento è stato fatto dal moderatore sul sito
Quando salvo come cartella di lavoro con abilitazione macro, la chiudo e poi la riapro, l'integrità dell'immagine è andata persa.
Questo commento è stato fatto dal moderatore sul sito
L'ho testato per salvare la cartella di lavoro come cartella di lavoro con attivazione macro, riaprire la cartella di lavoro con attivazione macro, l'immagine è ancora lì e anche il codice può funzionare. Forse prova a salvare la cartella di lavoro prima di salvarla come cartella di lavoro con abilitazione macro.
Questo commento è stato fatto dal moderatore sul sito
Grazie.
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite