Ga naar hoofdinhoud

 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:

doc afbeeldingen invoegen met dezelfde grootte 1

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:

doc afbeeldingen invoegen met dezelfde grootte 2

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

doc afbeeldingen invoegen met dezelfde grootte 3

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

doc afbeeldingen invoegen met dezelfde grootte 4

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.

Kutools for Word : met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. 

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!

Duik in de gemarkeerde functies hieronder of klik hier om de volledige kracht van Kutools voor Word te verkennen.

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/XLSX)  /  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 schoonVeeg weg Extra ruimtes  /  Sectie-onderbrekingen  /   Alle koppen  /  Tekstvakken  /  hyperlinks  /  Ga voor meer verwijderingshulpmiddelen naar onze Verwijdergroep

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 onze Invoeggroep

???? Precisieselecties: Bepaal specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  /  Navigeer eenvoudig met onze Select Group

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

Transformeer uw Word-taken met Kutools. 👉 Nu downloaden met een proefperiode van 30 dagen .

 
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