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

Jak změnit velikost obrázků tak, aby odpovídaly buňkám v aplikaci Excel?

Normálně vložené obrázky se vznášejí nad buňkami a většinou jeden obrázek pokrývá mnoho buněk. Pokud má list velké množství obrázků, můžete každý obrázek vložit do jedné buňky. Ale jak se s tím vypořádat? Ve skutečnosti existuje několik složitých způsobů, jak nám pomoci změnit velikost obrázků tak, aby rychle odpovídaly velikosti buněk.

Změňte velikost vybraného obrázku tak, aby se vešel do jedné buňky pomocí VB Macro

Změňte velikost vložených obrázků tak, aby se vešly do buněk pomocí Kutools pro Excel

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina Změňte velikost vybraného obrázku tak, aby se vešel do jedné buňky pomocí VB Macro


Můžeme použít makra VB pro změnu velikosti vybraného obrázku tak, aby se vešel do jedné buňky, ale nemůžeme ručně změnit velikost obrázku a jeho šířku. Můžete to udělat pomocí následujících kroků:

Krok 1: Vložte obrázky do listu a vyberte obrázek, jehož velikost změníte tak, aby se vešel do jedné buňky.

doc-resize-images-to-fit-cells1

Krok 2: Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

Krok 3: Klepněte na tlačítko Vložit > Modula vložte následující makro do okna modulu.

VBA: Změňte velikost vybraného obrázku tak, aby se vešel do buňky.

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

Krok 4: Stiskněte tlačítko F5 klíč ke spuštění tohoto makra.

Krok 5: Opakováním výše uvedených kroků upravte velikost dalších obrázků tak, aby se vešly do jedné buňky.

Nyní se u všech vložených obrázků změní velikost a vejde se do buněk. Viz následující snímek obrazovky:

doc-resize-images-to-fit-cells2

Poznámka: Můžete změnit velikost pouze jednoho obrázku najednou. Pokud vyberete více než jeden obrázek najednou, zobrazí se dialogové okno s varováním.


šipka modrá pravá bublina Změňte velikost vložených obrázků tak, aby se vešly do buněk pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován, můžete použít jeho Importovat obrázky nástroj pro změnu velikosti všech obrázků tak, aby se vešly do buněk nebo s pevnou výškou během vkládání obrázků.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.

Krok 1: Vyberte buňky rozsahu, do kterých chcete vložit obrázky, a klikněte na Enterprise >Import / Export > Importovat obrázky. Viz následující snímek obrazovky:

doc-resize-image-to-fit-cell-1

Krok 2: V Importovat obrázky V rozevíracím seznamu vyberte pořadí vložení a klikněte na přidat tlačítko pro přidání požadovaných obrázků ze souboru nebo složky a poté klikněte na velikost knoflík. Viz screenshot:

doc-resize-image-to-fit-cell-2

Krok 3: Zkontrolujte Odpovídající velikost buňky volba. Pak klikněte na tlačítko Ok > import zavřete dialogy. Viz snímek obrazovky:

doc-resize-image-to-fit-cell-3

Nyní můžete vidět, že obrázky jsou vloženy tak, aby odpovídaly buňkám.

doc-resize-image-to-fit-cell-4

Poznámka: Můžete také zadat výšku a šířku buňky v kroku 3 a změnit velikost obrázků.

Pokud se o tom chcete dozvědět více Importovat obrázek funkce, navštivte zde.


Související článek:

Jak změnit velikost více buněk tak, aby se rychle vešly na obrázky nad nimi v aplikaci Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (15)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Makro FitPic uvedené výše je Sweeeeeet! Udělal jsem spoustu fotek věcí z garážového prodeje, které nakonec šly do Armády spásy. Dokumentoval jsem obrázky a hodnoty v Excelu pro daňové účely. Toto makro fungovalo poprvé! :lol:
Tento komentář byl moderátorem webu minimalizován
Návod pro Excel
Tento komentář byl moderátorem webu minimalizován
Děkuji bylo to perfektní!!
Tento komentář byl moderátorem webu minimalizován
Funguje!! Ale mám jednu otázku, chci umístit img do řady sloučených buněk, jak to mohu udělat?
Tento komentář byl moderátorem webu minimalizován
[quote]Funguje!! Ale mám jednu otázku, chci umístit img do řady sloučených buněk, jak to mohu udělat?Od Marcela[/quote] Marcelo, dostal jsi aktualizované marco pro sloučenou buňku? Snažím se dělat to samé. dík
Tento komentář byl moderátorem webu minimalizován
Včera večer jsem zkoušel toto makro a nastavuje pouze výšku. Šířka to není špatně. Nějaká pomoc prosím?
Tento komentář byl moderátorem webu minimalizován
Veřejný dílčí FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Drobná úprava pro změnu velikosti do sloučených buněk
Při chybě Přejít na NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
S výběrem
PicWtoHRatio = .Šířka / .Výška
Konec s
S Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
Konec s
Vyberte Case PicWtoHRatio / CellWtoHRatio
Případ je > 1
S výběrem
.Width = .TopLeftCell.MergeArea.Width
.Výška = .Šířka / PicWtoHRatio
Konec s
Case Else
S výběrem
.Výška = .TopLeftCell.MergeArea.Height
.Šířka = .Výška * PicWtoHRatio
Konec s
Konec Vybrat
S výběrem
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Umístění = xlMoveAndSize
Konec s
Konec Sub
NOT_SHAPE:
MsgBox "Před spuštěním tohoto makra vyberte obrázek."
End Sub
Tento komentář byl moderátorem webu minimalizován
Díky, fungovalo to, ale mám asi 500 obrázků, takže je nechci dělat jeden po druhém - jak je prosím udělám všechny najednou?
Tento komentář byl moderátorem webu minimalizován
Ahoj, moc se mi líbí toto makro, které dělá obrázky přizpůsobené buňkám, opravdu mi pomohlo s některými pracovními věcmi. Ale ví někdo, jak napsat tento kód pro applescript? Musím používat macs a jablečná verze Excelu, Numbers, používá pouze applescript. Pomoc! Mnohokrát děkuji, Harry
Tento komentář byl moderátorem webu minimalizován
funguje to, pokud buňky nejsou sloučené. bohužel jsem sloučil některé buňky a vejde se to pouze do levé horní buňky, díky čemuž je fotografie velmi malá.
Tento komentář byl moderátorem webu minimalizován
Brilantní! Funguje skvěle! Přesně to, co jsem hledal! Děkuji!
Tento komentář byl moderátorem webu minimalizován
Hi ..
dokonalé řešení. Ale chci, aby tato funkce fungovala s příkazovým tlačítkem. Potřebuji vytvořit příkazové tlačítko pro vložení a automatickou změnu velikosti na velikost buňky. prosím pomozte.
Tento komentář byl moderátorem webu minimalizován
Ahoj, potřebuji tento kód pro deaktivaci poměru stran zámku
Tento komentář byl moderátorem webu minimalizován
Děkuji, opravdu to funguje!
Tento komentář byl moderátorem webu minimalizován
Makro pozice obrazu "Immagine 2" v centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi užitečné

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell As Single ' larghezza cella
Dim hfoto As Single ' altezza photo
Dim Lfoto As Single ' larghezza foto
Dim Rfoto As Single ' rapporto foto h/L

Rozsah("D5").Vyberte

hcell = Výběr.Výška
Lcell = Selection.Width
hfoto = ActiveSheet.Shapes("Představ si 2").Výška
Lfoto = ActiveSheet.Shapes("Immagine 2").Šířka
Rfoto = hfoto / Lfoto

If hfoto < Lfoto Then
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

Pokud hfoto > hcell Pak
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
End If

ActiveSheet.Shapes("Immagine 2").Výška = hfoto
ActiveSheet.Shapes("Immagine 2").Šířka = Lfoto
Jiný
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Immagine 2").Výška = hfoto
ActiveSheet.Shapes("Immagine 2").Šířka = Lfoto
End If

Rozsah("D5").Vyberte

S ActiveSheet.Shapes("Immagine 2")
.Top = Selection.Top + (Selection.Height - .Height) / 2
.Left = Selection.Left + (Selection.Width - .Width) / 2
Konec s
End Sub
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění