Hoe voegt u meerdere afbeeldingen in en past u ze allemaal aan naar dezelfde grootte in Word?

Normaal gesproken kunt u meerdere afbeeldingen tegelijk invoegen in een Word-document met hun Originele grootte. Er zijn echter situaties waarin u ervoor moet zorgen dat alle afbeeldingen dezelfde grootte hebben voor een consistente en professionele uitstraling. Elke afbeelding handmatig wijzigen van grootte kan tijdrovend zijn. In deze handleiding leest u hoe u efficiënt meerdere afbeeldingen in een Word-document kunt invoegen en uniform van grootte kunt maken, zodat u een professionele en coherente lay-out krijgt.

Meerdere afbeeldingen invoegen en aanpassen naar dezelfde grootte in Word met VBA

Alle afbeeldingen aanpassen naar de grootte van een specifieke afbeelding met behulp van Kutools voor Word

Meerdere afbeeldingen invoegen en aanpassen naar dezelfde grootte in Word met VBA

De volgende VBA-code helpt u om meerdere afbeeldingen tegelijkertijd in te voegen en automatisch aan te passen aan de door u gewenste afmetingen. Volg deze stappen:

1. Houd de ALT + F11-toetsen ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.

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. Druk op F5 om deze code uit te voeren. Er verschijnt een Bladeren-venster. Selecteer de map met de afbeeldingen die u wilt invoegen en klik op OK.
4. Er verschijnt een melding waarin wordt gevraagd of u de afbeeldingen wilt wijzigen van grootte. Klik op Ja.
5. Voer de hoogte en breedte in punten (pt), gescheiden door een komma, in het tekstvak dat verschijnt en klik vervolgens op OK.

   

6. Alle ingevoegde afbeeldingen worden nu automatisch aangepast aan de opgegeven afmetingen.

   

Alle afbeeldingen aanpassen naar de grootte van een specifieke afbeelding met behulp van Kutools voor Word

Wanneer uw Word-document meerdere afbeeldingen bevat, is het vervelend om ze één voor één aan te passen. Met Kutools voor Word kunt u dankzij de Afbeeldingen aanpassen-functie in één keer alle afbeeldingen aanpassen aan de grootte van één specifieke afbeelding.

1. Pas één afbeelding aan naar de gewenste grootte en selecteer deze. Klik daarna op KUTOOLS PLUS > Formaat wijzigen > Formaat van Alle Afbeeldingen Aanpassen op Basis van Selectie.

Alle afbeeldingen in het Word-document worden direct aangepast aan de grootte van de geselecteerde afbeelding.

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

 

Gratis downloaden     Nu kopen     Meer informatie

 

---

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

• Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
• Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

Gratis downloaden     Nu kopen     Meer informatie

 

---

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

⬇️ Nu downloaden🎁 Het volledige pakket kopen📖 Meer informatie

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

• 🤖KUTOOLS AI-functies:AI Assistent/Realtime Assistent/Super Polish/Super Vertalen/AI Redactie/AI Proeflezen
• 📘Documentbeheersing:Pagina's splitsen/Documenten samenvoegen/Batchconversie naar PDF
• ✏Inhoudsbewerking:Batch Zoeken en Vervangen/Alle afbeeldingen herschalen
• 🧹Moeiteloos opschonen:Overbodige spaties verwijderen/Sectie-einde verwijderen
• ➕Creatieve invoegingen:Duizendtalscheidingstekens invoegen/Selectievakje invoegen/QR-code maken
• 🌍Ondersteunt 40+ talen: Kutools spreekt uw taal – met ondersteuning voor meer dan 40 talen!

Gratis downloadenNu kopenMeer informatie over Kutools