Hoe voeg ik meerdere afbeeldingen met dezelfde grootte in een Word-document in?

Normaal gesproken kunt u meerdere afbeeldingen tegelijk in een Word-document invoegen met hun oorspronkelijke grootte. Soms moet u deze afbeeldingen bij het invoegen op dezelfde grootte rangschikken. In dit artikel zal ik het hebben over het invoegen van meerdere afbeeldingen met dezelfde grootte in een Word-document.

Voeg meerdere afbeeldingen met dezelfde grootte in een Word-document in met VBA-code

Wijzig het formaat van alle afbeeldingen naar hetzelfde formaat op basis van een specifieke afbeelding met Kutools voor Word

Voeg meerdere afbeeldingen met dezelfde grootte in een Word-document in met VBA-code

De volgende vba-code kan u helpen om meerdere afbeeldingen in te voegen en ze in één keer naar de door u opgegeven grootte te verkleinen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: voeg meerdere afbeeldingen met dezelfde grootte in:

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. En druk dan op F5 sleutel om deze code uit te voeren, een Blader venster wordt weergegeven, selecteer dan de map met de afbeeldingen die u wilt invoegen, zie screenshot:

4. Dan klikken OK knop, en er verschijnt een promptf-vak om u eraan te herinneren of u het formaat van de afbeeldingen wilt wijzigen, zie screenshot:

5. Klikken Ja, en typ de maatnummers van de hoogte en breedte die worden gescheiden door komma's in het tekstvak, zie screenshot:

6. En klik vervolgens op OKzijn alle ingevoegde afbeeldingen opnieuw gerangschikt op dezelfde grootte, zie screenshot:

Note: de grootte van de eenheid is vijver in VBA-code.

Wijzig het formaat van alle afbeeldingen naar hetzelfde formaat op basis van een specifieke afbeelding met Kutools voor Word

Als er meerdere afbeeldingen in uw Word-document staan, met Kutools for Word's Wijzig afbeeldingen hulpprogramma, kunt u snel het formaat van alle afbeeldingen wijzigen zodat deze hetzelfde zijn als de specifieke.

Na het installeren van Kutools for Word, doe dit als volgt:

1. Pas een afbeelding aan de gewenste grootte aan, selecteer deze en klik op Koetools Plus > resize > Formaat van afbeeldingen wijzigen met selectie, zie screenshot:

2. En alle afbeeldingen in dit Word-document zijn onmiddellijk verkleind tot hetzelfde als het geselecteerde, zie screenshot:

Klik om Kutools voor Word en nu gratis uit te proberen!

Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

⭐ Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀

Gratis download     Lees meer     KOOP NU