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

Jak změnit velikost všech / více obrázků v aplikaci Word?

Když kopírujeme nebo importujeme obrázky z Internetu nebo jiných souborů, jejich velikost se může lišit. Každý ví, jak měnit velikost obrázků jeden po druhém, ale pokud je chceme změnit na stejnou velikost najednou, jak to můžeme udělat? Tento výukový program vám ukáže několik metod změny velikosti obrázků.

Ruční změna velikosti obrázků v aplikaci Word

Změňte velikost obrázků pomocí VBA

Změňte velikost více obrázků najednou pomocí Kutools pro Word


Ruční změna velikosti obrázků v aplikaci Word

1. Kliknutím na obrázek zobrazíte úchyty pro změnu velikosti obrázku;

2. Umístěte kurzor na jeden z úchytů pro změnu velikosti obrázku.

3. Přetáhněte úchyt pro změnu velikosti, dokud velikost obrázku nebude vyhovovat vašim potřebám. Viz snímek obrazovky:

doc upravit obrázky 1

Poznámka: Pomocí této metody nemůžete změnit velikost více obrázků najednou. Musíte měnit jejich velikost jeden po druhém, dokud nezměníte velikost všech obrázků.


Změňte velikost obrázků pomocí VBA

S následujícím kódem VBA můžete změnit velikost obrázků na ideální velikost. Můžete to udělat následovně :

V tomto příkladu změníme velikost obrázku na výšku 1.78 palce a šířku 3.17 palce.

1. Vyberte obrázek, u kterého chcete změnit velikost;

2. lis Alt + F11 k otevření Microsoft Visual Basic pro aplikace okno;

3, klikněte Modul od Vložit kartu, zkopírujte a vložte následující kód VBA do souboru Modul okno;

Kód VBA: Změna velikosti jednoho obrázku na konkrétní velikost:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. klikněte Běh nebo F5 klíč ke spuštění kódu VBA a u vybraného obrázku byla změněna velikost podle vaší potřeby.

Poznámka: Ve výše uvedeném kódu,  V shp.Height = InchesToPoints (1.78) a shp.Width = InchesToPoints (3.17) jsou výška a šířka obrázku, můžete změnit velikost podle svých potřeb.

S tímto kódem VBA také nemůžete změnit velikost celého nebo více obrázků najednou. Musíte se pohybovat tam a zpět mezi dokumentem Word a Microsoft Visual Basic pro aplikace v okně vyberte obrázek a použijte kód. To je příliš časově náročné.


Změňte velikost obrázků pomocí programu Kutools pro Word

S Kutools pro slovo 's Změnit velikost obrázků Utility, můžete se zbavit těchto otravných a časově náročných operací a rychle změnit velikost všech obrázků z dokumentu.

Kutools pro Word : s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. 

1. Použijte tento nástroj kliknutím Kutools Plus > Změna velikosti. Viz snímek obrazovky:

2. Pokud chcete změnit velikost všech obrázků na určité procento jejich původní velikosti, vyberte z rozevíracího seznamu jedno ze šesti procent. Chcete-li například změnit velikost všech obrázků na 50% jejich původní velikosti, vyberte prosím 50%. Po kliknutí 25%, uvidíte, že všechny obrázky byly zmenšeny na 50%. Viz snímek obrazovky:

doc upravit obrázky 3

Pokud chcete upravit všechny obrázky na stejnou velikost s vybraným, vyberte obrázek jako velikost modelu a poté klikněte na Kutools Plus > Změna velikosti > Změňte velikost obrázků pomocí výběrua u všech obrázků bude změněna stejná velikost na základě vybraného, ​​viz screenshot:

doc upravit obrázky 4

Podrobnější informace o Kutools pro WordJe Změnit velikost obrázků nástroj, klikněte prosím zde.

Klikněte a stáhněte si Kutools pro Word a bezplatnou zkušební verzi hned teď!


Ukázka: Změňte velikost všech obrázků najednou v aplikaci Word

Kutools pro Word: s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. Stáhněte si a vyzkoušejte zdarma hned!


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
uložte své peníze a spusťte toto makro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
Tento komentář byl moderátorem webu minimalizován
uložte své peníze a spusťte toto makro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End S End Sub Vynikající!!! Ušetřil jsi mi peníze a můj čas. Děkuji mnohokrát!
Tento komentář byl moderátorem webu minimalizován
Kam vložím tento kód?
Tento komentář byl moderátorem webu minimalizován
Ví někdo, zda je v systému Windows 365 k dispozici funkce zástupného symbolu / kapátka / automatické změny velikosti? Nemám ponětí, kde hledat nebo najít pomoc, protože nápověda k chatu společnosti Microsoft byla TAK neužitečná. Jakékoli tipy by byly velmi oceněny.
Tento komentář byl moderátorem webu minimalizován
Potřebuji změnit velikost všech obrázků ve wordovém dokumentu na stejnou šířku, ale nedeformovat obrázky. tak je upravte na stejnou šířku. Je to možné přes makro?
Tento komentář byl moderátorem webu minimalizován
Pokud dokument uložíte jako .docx, budete jej moci otevřít jako archiv zip. Bude tam mediální složka se všemi obrázky (ten můj měl obrázky PNG). Poté můžete použít programy jako IrfanView, XnViewMP, FastStone Viewer k provádění dávkových transformací, jako je změna velikosti, snížení barevné hloubky atd. Zabalte své obrázky zpět do zipu a přejmenujte je na docx. Například v mém docx plném screenshotů jsem potřeboval snížit počet barev na 8, což pro účely dokumentace stačí. Po zpracování mého 10 MB dokumentu se stal dokument 1.8 MB, takže úspory mohou být značné. Vždy si uložte svůj původní docx pro případ, že budete chtít obnovit obrázky po příliš dlouhé degradaci/zpracování atd.
Tento komentář byl moderátorem webu minimalizován
Ztratil jsem dobré 3 hodiny nebo více, když jsem se snažil zprovoznit tato makra VBA. Vzdal se a vyzkoušel Kutools, který funguje skvěle! Koupil jsem si to hned, protože to stojí za těch 49 $!
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í