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
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.
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
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:
4. E quando clicchi sulla cella che si trova in alto a destra dell'immagine, l'immagine relativa verrà ingrandita. Vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze in Excel con Kutools for Excele sperimenta l'efficienza come mai prima d'ora. Kutools for Excel Offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
