Ugrás a tartalomra

Hogyan lehet több cellát átméretezni, hogy a képek gyorsan illeszkedjenek az Excel programba?

Mint tudjuk, a Microsoft Excel támogatja a cellák sormagasságának és oszlopszélességének automatikus átméretezését a kitöltött tartalom, például egy hosszú szöveges karakterlánc illesztésére. Az AutoFit Row Height parancs és az AutoFit oszlop Width parancs azonban nem érvényes a képre, mert a beillesztett kép nem egy adott cellában található.

A cellák átméretezése a képek VBA-val történő illesztésére

A Kutools for Excel segítségével méretezze át a képeket, hogy illeszkedjenek a cellákhoz jó ötlet3


A cellák átméretezése a képek VBA-val történő illesztésére

Ha egy munkalapon két nagy kép található, lásd a következő képernyőképet. Valaki átméretezheti egy cella méretét, hogy a kép fölé kerüljön egy kép. De hogyan lehet megvalósítani?

doc-resize-cell-to-fit-picture1

Természetesen minden cellát automatikusan átméretezhet, hogy a képek felettük legyenek. Számos kép esetében azonban unalmas és időigényes lehet. Valójában VB makrót alkalmazhatunk az összes cella átméretezéséhez, hogy a képek felettük legyenek. A következő lépésekkel teheti meg:

1 lépés: Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2 lépés: Kattintson a gombra betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.

VBA: Több cellát méretezzen át a képeiknek megfelelően.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

3 lépés: Nyomja meg a F5 gomb a makró futtatásához.

Ha az aktuális munkalapon vannak képek, a cella átméretezi a képet, hogy illeszkedjen a fölötte lévő képhez. Lásd a következő képernyőképet:

doc-resize-cell-to-fit-picture2


A Kutools for Excel segítségével méretezze át a képeket, hogy illeszkedjenek a cellákhoz

Ha a cellák méretét az alábbi képernyőképen állította be, majd importálni és átméretezni szeretné a képeket, hogy azok illeszkedjenek a cellaméretekhez, hogyan lehet ezt gyorsan elvégezni? Ebben az esetben, Kutools az Excel számára's Importáljon Pictrues-t segédprogram segítségével könnyedén kezelheti ezt a munkát.
doc átméretezi az 1. kép celláját

Kutools az Excel számára, Több mint 120 praktikus funkciókkal megkönnyíti a munkáját. 

Telepítése után Kutools for Excel, kérjük, tegye az alábbiakat:(Ingyenesen töltse le a Kutools for Excel programot most!)

1. kettyenés Vállalkozás > Import / Export > Képek importálása. Lásd a képernyőképet:
doc átméretezi az 2. kép celláját

2. A durranásban Képek importálása párbeszédpanelen először megadhatja az importálási sorrendet Rendelés importálása szakaszra, majd kattintson a gombra hozzáad gombra kattintva egyenként hozzáadhat képeket mappából vagy fájlokként, ekkor láthatja a képek listáját a Kép szakasz. Lásd a képernyőképet:
doc átméretezi az 3. kép celláját

3. Ezután kattintson import gombot a megjelenítéshez Képméret importálása párbeszédpanelt, majd ellenőrizze Megfelelő cellaméret választási lehetőség. Lásd a képernyőképet:
doc átméretezi az 4. kép celláját

4. kettyenés OK > import párbeszédpanel megjelenítéséhez válassza ki a képeket importálni kívánt cellákat. Lásd a képernyőképet:
doc átméretezi az 5. kép celláját

5. kettyenés OK, és most az összes pirtkúrát importálják a cellákba, és méretüket átméretezik a sejtek összegyűjtésére.
doc átméretezi az 6. kép celláját


Kapcsolódó cikk:
Hogyan lehet több képet beilleszteni az Excel cellájába?

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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations