Jak vložit a změnit velikost obrázků na stejnou velikost ve Wordu?

Normálně můžete do dokumentu aplikace Word vložit více obrázků najednou v jejich původní velikosti. Jsou však chvíle, kdy potřebujete zajistit, aby všechny obrázky měly stejnou velikost pro konzistentní a profesionální vzhled. Ruční změna velikosti každého obrázku může být časově náročná. Tato příručka vám ukáže, jak efektivně vložit více obrázků do dokumentu aplikace Word a jednotně změnit jejich velikost, což zajistí profesionální a soudržné rozvržení.

Vložit a změnit velikost více obrázků na stejnou velikost ve Wordu pomocí VBA

Změňte velikost všech obrázků tak, aby odpovídaly konkrétnímu obrázku pomocí Kutools pro Word

Vložit a změnit velikost více obrázků na stejnou velikost ve Wordu pomocí VBA

Následující kód VBA vám může pomoci vložit více obrázků a změnit jejich velikost na zadané rozměry najednou. Postupujte podle těchto kroků:

1. Podržte stisknuté tlačítko 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 Modul okno.

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. Stisknout F5 ke spuštění tohoto kódu. A Procházet objeví se okno. Vyberte složku obsahující obrázky, které chcete vložit, a klikněte OK.

   

4. Zobrazí se výzva s dotazem, zda chcete změnit velikost obrázků. Klikněte Ano.

   

5. Do textového pole, které se zobrazí, zadejte výšku a šířku v bodech (pt), oddělené čárkou, a poté klepněte OK.

   

6. Všechny vložené obrázky budou nyní změněny na zadané rozměry.

   

Změňte velikost všech obrázků tak, aby odpovídaly konkrétnímu obrázku pomocí Kutools pro Word

Pokud váš dokument aplikace Word obsahuje více obrázků, může být změna velikosti jednoho po druhém únavná. S Kutools pro Wordse Změnit velikost obrázků nástroj umožňuje rychle změnit velikost všech obrázků tak, aby odpovídaly velikosti konkrétního.

1. Upravte jeden obrázek na požadovanou velikost a vyberte jej. Pak klikněte Kutools Plus > Změna velikosti > Změnit velikost všech obrázků na základě výběru.

   

Všechny obrázky v dokumentu aplikace Word budou okamžitě změněny tak, aby odpovídaly velikosti vybraného obrázku.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

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

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / 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 / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Generovat, Přepsat, Shrnout, přeložit Dokumenty / Získejte rychlé odpovědi / Polský dokument (zachovat formát)
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools