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

Změňte velikost všech obrázků na stejnou velikost na základě konkrétního obrázku pomocí programu Kutools pro Word

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.

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...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????

Stažení zdarma     Více     Kup nyní