Salt la conținutul principal

Cum să măriți imaginea când faceți clic pe ea în Excel?

Autor: Siluvia Ultima modificare: 2024-10-28

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.

O captură de ecran care arată o listă de imagini mici în celulele Excel

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:

O captură de ecran a opțiunii Atribuire macro din meniul contextual cu clic dreapta pentru o imagine în Excel

2. În Atribuiți macro caseta de dialog, faceți clic pe Nou butonul.

O captură de ecran a dialogului Atribuire macrocomandă în Excel pentru a adăuga o nouă macrocomandă pentru o imagine

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.

O captură de ecran care arată codul VBA pentru a mări și a restabili dimensiunea imaginii în Excel

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.

O captură de ecran care arată o imagine mărită în Excel după ce a fost făcută clic și restaurată la dimensiunea originală cu un al doilea clic


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools Ajutor AI: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  invoca Kutools funcţii...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele
Utilizare Kutools în limba preferată – este compatibilă cu engleză, spaniolă, germană, franceză, chineză și peste 40 de alte limbi!

Î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!