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 Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
