Hogyan lehet nagyítani a képet, amikor rákattint az Excel-ben?

Tegyük fel, hogy beszúrta a képek listáját egy oszlopba, és a képméretet illesztette a cellaméretekhez, az alábbi képernyőkép szerint. Mivel a beillesztett kép kicsinek tűnik, lehet, hogy bizonyos célokból meg kell nagyítania. Ez a cikk bemutatja a kép nagyításának módszerét, amikor rákattint az Excel-ben, és a második kattintással visszaállíthatja az eredeti méretet.

Kép nagyítása, ha VBA kóddal kattint rá

Kép nagyítása, ha VBA kóddal kattint rá

A következő VBA-kód segíthet a kép nagyításában, amikor rákattint az Excel-ben. Kérjük, tegye a következőket.

1. Kattintson a jobb egérgombbal a nagyítani kívánt képre, ha rákattint, majd kattintson a gombra Hozzárendelje a Makrót a helyi menüből. Lásd a képernyőképet:

2. Ban,-ben Hozzárendelje a Makrót párbeszédpanelen kattintson a gombra Újszerű gombot.

3. A felbukkanóban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a alatt és a End Sub kódok. Lásd a képernyőképet:

VBA kód: A kép nagyításához kattintson rá az Excelben

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

Megjegyzések: A kódban a kép nagy méretét rendelheti hozzá a kód = 3 = nagy.

4. Ezután nyomja meg a gombot más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

Mostantól, amikor rákattint a képre, a kép az Ön által megadott méretre nagyítja, és kattintson rá újra, hogy visszaálljon az eredeti méretre, az alábbi képernyőképek alatt.

Kapcsolódó cikkek:

• Hogyan lehet rögzíteni a képet / képet az Excel cellájában vagy belsejében?
• Hogyan illesszünk be képet vagy képet dinamikusan a cellába az Excel cellája alapján?