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 ați potrivit dimensiunile imaginii cu dimensiunile celulelor, așa cum se arată mai jos. Deoarece imaginea inserată pare mică, poate fi necesar să o măriți pentru anumite scopuri. Acest articol vă va arăta metoda de a mări o imagine când faceți clic pe ea în Excel și de a reveni la dimensiunea originală cu un 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 With
notiț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 specificată de dvs., iar dacă faceți clic din nou, o va restabili la dimensiunea inițială, așa cum se arată în capturile de ecran de 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 for Excelși experimentați eficiența ca niciodată înainte. Kutools for 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...
Office Tab Aduce interfața cu file la 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!