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 Új 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 WithMegjegyzé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?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
