Ugrás a tartalomra

 Hogyan lehet kinagyítani vagy kicsinyíteni a képet egyetlen kattintással az Excel programban?

Tegyük fel, hogy egy lapon több kép van, amelyek különböző méretűek. Van valamilyen módja annak, hogy ezeket a képeket egy kattintással kinagyítsa vagy kicsinyítse egy méretben? A megoldáshoz nincs beépített szolgáltatás, de ebben a cikkben bemutatok egy VBA kódot, amellyel egyetlen kattintással kinagyíthatom vagy kicsinyíthetem a lap összes képét.

A VBA egy kattintással nagyíthatja és kicsinyítheti a képeket


nyíl kék jobb buborék A VBA egy kattintással nagyíthatja és kicsinyítheti a képeket

Tegye az alábbiak szerint a képeket egyetlen kattintással kinagyíthatja vagy kicsinyítheti.

1. Kattintson a jobb gombbal azon a lapfülön, ahol át szeretné méretezni a képek méretét, majd válassza a lehetőséget Kód megtekintése a helyi menüből.
doc Kép nagyítása egy kattintással 1

2. A durranásban Microsoft Visual Basic alkalmazásokhozs ablakot, és illessze be a kód alá az üres parancsfájlba.

VBA: A képek nagyítása és kicsinyítése egyetlen kattintással

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc Kép nagyítása egy kattintással 2

 

3. Mentse el a kódot, és zárja be az ablakot. Ha pedig az A oszlop bármely cellájára kattint, az összes kép zsugorodik. Lásd a képernyőképet:
doc Kép nagyítása egy kattintással 3

4. És amikor rákattint a cellára, amely a kép jobb felső részén található, a relatív kép megnagyobbodik. Lásd a képernyőképet:
doc Kép nagyítása egy kattintással 4

Tipp.Ha gyorsan szeretne vízjelet beilleszteni egy lapba, próbálja meg a Kutools for Excel alkalmazást használni Vízjel beszúrása a következő képernyőképen látható módon. 30 nap alatt teljes körűen működik, korlátozás nélkül, kérjük, töltse le és ingyenes próbaverzióval rendelkezzen most.

doc vízjel beillesztése

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

kte lap 201905


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!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you.
This comment was minimized by the moderator on the site
When I save as a Macro-Enabled workbook, close and then re-open, the image integrity has been lost.
This comment was minimized by the moderator on the site
I have tested that to save the workbook as macro-enable workbook, reopen the macro-enable workbook, the image is still there, and the code can work as well. Maybe try to save the workbook before you saving it as macro-enable workbook.
This comment was minimized by the moderator on the site
Doesn't work
This comment was minimized by the moderator on the site
Sorry, I did not know why it does not work in your case, but before carrying out this tutorial, I have tested it several times.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations