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 ed 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 WithNote:: 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:
- Come bloccare l'immagine / immagine su o all'interno della cella in Excel?
- Come inserire un'immagine o un'immagine dinamicamente nella cella in base al valore della cella in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per 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 semplifica notevolmente il tuo 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 ogni giorno centinaia di clic del mouse!
