Note: The other languages of the website are Google-translated. Back to English

 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 be akarja helyezni a vízjelet egy lapba, próbálja meg használni a Kutools for Excel programot Vízjel beszúrása a következő képernyőképen látható módon. Teljes funkciója korlátozás nélkül 30 nap, kérjük, töltse le és ingyenes próbaverzióval rendelkezzen most.

doc vízjel beillesztése

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (5)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem működik
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnálom, nem tudtam, miért nem működik az Ön esetében, de mielőtt elvégeztem volna ezt az oktatóanyagot, többször teszteltem.
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor Makró-kompatibilis munkafüzetként mentem, bezárom, majd újra megnyitom, a kép sértetlensége elveszett.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbáltam, hogy a munkafüzet makróengedélyező munkafüzetként való mentéséhez nyissa meg újra a makró engedélyezése munkafüzetet, a kép továbbra is ott van, és a kód is működhet. Esetleg próbálja meg menteni a munkafüzetet, mielőtt elmenti makró-engedélyező munkafüzetként.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm.
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi