Přejít k hlavnímu obsahu

 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:

doc vložte obrázky se stejnou velikostí 1

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:

doc vložte obrázky se stejnou velikostí 2

5, klikněte Anoa do textového pole zadejte čísla velikostí výšky a šířky, která jsou oddělena čárkou, viz screenshot:

doc vložte obrázky se stejnou velikostí 3

6. A pak klikněte na tlačítko OK, všechny vložené obrázky byly přeskupeny na stejnou velikost, viz screenshot:

doc vložte obrázky se stejnou velikostí 4

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!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  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ámahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

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 naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

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

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations