Cum să măriți imaginea când faceți clic pe ea în Excel?
Presupunând că ați inserat o listă de imagini într-o coloană și că ați asortat dimensiunile imaginii cu dimensiunile celulei, așa cum este prezentat mai jos. Deoarece imaginea inserată pare mică, poate fi necesar să o măriți în anumite scopuri. Acest articol vă va arăta metoda de mărire a imaginii atunci când faceți clic pe ea în Excel și de recuperare la dimensiunea originală cu al doilea clic.
Măriți imaginea când faceți clic pe ea cu codul VBA
Măriți imaginea când faceți clic pe ea cu codul VBA
Următorul cod VBA vă poate ajuta să măriți o imagine atunci când faceți clic pe ea în Excel. Vă rugăm să faceți următoarele.
1. Faceți clic dreapta pe imaginea pe care trebuie să o măriți făcând clic pe ea, apoi faceți clic pe Atribuiți macro din meniul contextual. Vedeți captura de ecran:
2. În Atribuiți macro caseta de dialog, faceți clic pe Nou butonul.
3. În fereastra pop-up Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți codul VBA de mai jos între Sub și End Sub coduri. Vedeți captura de ecran:
Cod VBA: măriți imaginea făcând clic pe ea în 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 Withnotițe: În cod, puteți atribui dimensiunile mari ale imaginii în codul mare = 3.
4. Apoi apăsați pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
De acum înainte, când faceți clic pe imagine, aceasta va fi mărită la dimensiunea pe care ați specificat-o și faceți clic pe ea din nou pentru a reveni la dimensiunea originală, așa cum se arată mai jos.
Articole pe aceeași temă:
- Cum se blochează imaginea / imaginea la sau în interiorul celulei în Excel?
- Cum se introduce o imagine sau o imagine dinamic în celulă pe baza valorii celulei din Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
