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:

Opmerking:: 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!

---

Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

• Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
• Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
• Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
• Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
• Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...

Lees meer Nu downloaden Koop nu jouw