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?