Hoe voeg je afbeeldingen in en pas je ze aan naar dezelfde grootte in Word?

Normaal gesproken kun je meerdere afbeeldingen tegelijk in een Word-document invoegen met hun oorspronkelijke afmetingen. Er zijn echter momenten waarop je ervoor moet zorgen dat alle afbeeldingen dezelfde grootte hebben voor een consistente en professionele uitstraling. Het handmatig aanpassen van elke afbeelding kan tijdrovend zijn. Deze gids laat je zien hoe je efficiënt meerdere afbeeldingen in een Word-document kunt invoegen en ze uniform kunt aanpassen, zodat je een professionele en samenhangende indeling krijgt.

Voeg meerdere afbeeldingen in en pas ze aan naar dezelfde grootte in Word met behulp van VBA

Pas de grootte van alle afbeeldingen aan om overeen te komen met een specifieke afbeelding met behulp van Kutools voor Word

Voeg meerdere afbeeldingen in en pas ze aan naar dezelfde grootte in Word met behulp van VBA

De volgende VBA-code kan helpen om meerdere afbeeldingen in te voegen en ze tegelijkertijd aan te passen naar de door jou gespecificeerde afmetingen. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications 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 je wilt invoegen en klik op OK.

   

4. Er verschijnt een prompt waarin wordt gevraagd of je de afbeeldingen wilt aanpassen. 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 aangepast naar de gespecificeerde afmetingen.

   

Pas de grootte van alle afbeeldingen aan om overeen te komen met een specifieke afbeelding met behulp van Kutools voor Word

Wanneer je Word-document meerdere afbeeldingen bevat, kan het één voor één aanpassen van de grootte ervan vervelend zijn. Met Kutools voor Word laat het hulpprogramma Afbeeldingen Formaat Wijzigen je snel alle afbeeldingen aanpassen naar de grootte van een specifieke afbeelding.

1. Pas één afbeelding aan naar de gewenste grootte en selecteer deze. Klik vervolgens op Kutools Plus > Formaat Wijzigen > Formaat van Alle Afbeeldingen Aanpassen op Basis van Selectie.

   

Alle afbeeldingen in het Word-document worden onmiddellijk aangepast naar de grootte van de geselecteerde afbeelding.

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

👉 Wilt u deze functies uitproberen? Download Kutools voor Word nu! 🚀

Gratis downloaden     Nu kopen     Meer informatie over Kutools voor Word

 

Beste productiviteitstools voor kantoor

Kutools voor Word – 100+ tools voor Word

• 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools / Super Vertalen / AI Redactie / AI Proeflezen
• 📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Batch converteren naar PDF
• ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
• 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
• ➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / Voeg selectievakjes toe / Maak QR-codes

Gratis downloaden Nu kopen Meer informatie over Kutools