Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

Normaal gesproken kunt u meerdere afbeeldingen tegelijk invoegen in een Word-document 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 van hetzelfde formaat in een Word-document.

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

Verklein alle afbeeldingen op dezelfde grootte op basis van een specifieke afbeelding met Kutools voor Word


Formaat van alle afbeeldingen op hetzelfde formaat wijzigen op basis van de geselecteerde:

Als u de grootte van alle afbeeldingen in dezelfde grootte wilt wijzigen, moet u ze normaal één voor één wijzigen, maar met Kutools for Word's Wijzig afbeeldingen functie, kunt u alle foto's van hetzelfde formaat aanpassen met een geselecteerd aan. Aan de andere kant kun je het formaat ervan naar een bepaald percentage aanpassen als je dat nodig hebt.

doc past afbeeldingen 05 aan

Kutools for Word: met meer dan 100 handige invoegtoepassingen voor Word, gratis om zonder beperkingen in 60-dagen te proberen. Klik om te downloaden en gratis proef nu!


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

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

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

2. Klikken bijvoegsel > moduleen plak de volgende code in het modulevenster.

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

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

doc voeg afbeeldingen in met dezelfde grootte 1

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

doc voeg afbeeldingen in met dezelfde grootte 2

5. Klikken Ja, en typ de groottenummers van de hoogte en breedte die gescheiden zijn door een komma in het tekstvak, zie screenshot:

doc voeg afbeeldingen in met dezelfde grootte 3

6. En klik vervolgens op OK, alle ingevoegde afbeeldingen zijn opnieuw gerangschikt als hetzelfde formaat, zie screenshot:

doc voeg afbeeldingen in met dezelfde grootte 4

Notes: de maateenheid is vijver in VBA-code.


Verklein alle afbeeldingen op dezelfde grootte 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 de grootte van alle afbeeldingen wijzigen, net zoals de specifieke afbeelding.

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

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

1. Pas de ene afbeelding aan de gewenste grootte aan, selecteer deze en klik vervolgens op Enterprise > Wijzig afbeeldingen > Wijzig de grootte van afbeeldingen met selectiezie screenshot:

doc voeg afbeeldingen in met dezelfde grootte 5

2. En alle afbeeldingen in dit Word-document zijn gelijk gemaakt aan het formaat van het geselecteerde document, zie screenshot:

doc voeg afbeeldingen in met dezelfde grootte 6

Klik om Kutools voor Word te downloaden en nu gratis uitproberen!



Aanbevolen Word-productiviteitstools

Kutools For Word - meer dan 100 geavanceerde functies voor Microsoft Word, sla uw 50% tijd op

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop 1, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, en zo verder ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 3 months ago
    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 :)