Jak vložit více obrázků se stejnou velikostí do dokumentu Word?
Normálně můžete do dokumentu Word vložit více obrázků najednou v jejich původní velikosti. Někdy je nutné tyto obrázky při vkládání uspořádat do stejné velikosti. V tomto článku budu hovořit o tom, jak vložit více obrázků se stejnou velikostí do dokumentu aplikace Word.
Vložte více obrázků stejné velikosti do dokumentu Word pomocí kódu VBA
Vložte více obrázků stejné velikosti do dokumentu Word pomocí kódu VBA
Následující kód VBA vám pomůže vložit více obrázků a změnit jejich velikost na zadanou velikost najednou, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do okna modulu.
Kód VBA: vložte více obrázků se stejnou velikostí:
Sub InsertSpecificNumberOfPictureForEachPage()
Dim xDlg As FileDialog
Dim xFilePath As String
Dim xFileName As String
Dim xMsbBoxRtn As Long
Dim xPicSize As String
Dim xShape As InlineShape
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFilePath = xDlg.SelectedItems(1) & "\"
Else
Exit Sub
End If
xFileName = Dir(xFilePath & "*.*", vbNormal)
While xFileName <> ""
If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
GoTo LblCtn
End If
With Selection
.InlineShapes.AddPicture xFilePath & xFileName, False, True
.TypeParagraph
.Collapse wdCollapsEnd
.TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
End With
LblCtn:
xFileName = Dir()
Wend
ActiveDocument.InlineShapes(1).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
If xMsbBoxRtn = 6 Then
xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
End If
For Each xShape In ActiveDocument.InlineShapes
xShape.Height = Split(xPicSize, ",")(0)
xShape.Width = Split(xPicSize, ",")(1)
Next xShape
End Sub
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, a Procházet Zobrazí se okno, vyberte složku obsahující obrázky, které chcete vložit, viz screenshot:
4. Pak klikněte na tlačítko OK Tlačítko a vyskočí okno s výzvou, které vám připomene, pokud chcete změnit velikost obrázků, viz screenshot:
5, klikněte Anoa do textového pole zadejte čísla velikostí výšky a šířky, která jsou oddělena čárkou, viz screenshot:
6. A pak klikněte na tlačítko OK, všechny vložené obrázky byly přeskupeny na stejnou velikost, viz screenshot:
Poznámka: velikost jednotky je v kódu VBA rybník.
Změňte velikost všech obrázků na stejnou velikost na základě konkrétního obrázku pomocí programu Kutools pro Word
Pokud ve vašem dokumentu Word existuje více obrázků, s Kutools pro WordJe Změnit velikost obrázků nástroj, můžete rychle změnit velikost všech obrázků stejně jako u konkrétního.
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í. |
Po instalaci Kutools pro Word, udělejte prosím toto:
1. Upravte jeden obrázek na požadovanou velikost, vyberte jej a poté klikněte Kutools Plus > Změna velikosti > Změňte velikost obrázků pomocí výběru, viz screenshot:
2. A všechny obrázky v tomto wordovém dokumentu byly okamžitě změněny stejně jako vybrané obrázky, viz screenshot:
Klikněte a stáhněte si Kutools pro Word a bezplatnou zkušební verzi hned teď!
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...
🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...