Come ingrandire o ridurre un'immagine con un solo clic in Excel?
Supponiamo che in un foglio siano presenti più immagini di dimensioni diverse. Esiste un modo per ingrandirle o ridurle tutte alla stessa dimensione con un solo clic? Non esiste una funzionalità integrata per risolvere questo problema, ma in questo articolo viene presentato un codice VBA per ingrandire o ridurre tutte le immagini del foglio con un solo clic.
Ingrandisci e riduci le immagini con un solo clic tramite VBA
Ingrandisci e riduci le immagini con un solo clic tramite VBA
Segui questi semplici passaggi per ingrandire o ridurre le immagini con un solo clic.
1. Fai clic con il pulsante destro sulla scheda del foglio in cui desideri ridimensionare le immagini e seleziona Visualizza codice dal menu contestuale.
2. Nella finestra di Microsoft Visual Basic for Applications visualizzata, incolla il codice seguente nello script vuoto.
VBA: Ingrandisci e riduci le immagini con un solo 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
3. Salva il codice e chiudi questa finestra. Quando fai clic su qualsiasi cella della colonna A, tutte le immagini verranno ridotte. Vedi screenshot:
4. Quando invece fai clic sulla cella in alto a destra rispetto all’immagine, quest’ultima verrà ingrandita. Vedi screenshot:
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
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 oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi