Wie füge ich mehrere Bilder mit derselben Größe in ein Word-Dokument ein?

Normalerweise können Sie mehrere Bilder mit ihrer Originalgröße gleichzeitig in ein Word-Dokument einfügen. Manchmal müssen Sie diese Bilder beim Einfügen auf die gleiche Größe bringen. In diesem Artikel werde ich darüber sprechen, wie Sie mehrere Bilder mit derselben Größe in ein Word-Dokument einfügen.

Fügen Sie mehrere Bilder mit derselben Größe in ein Word-Dokument mit VBA-Code ein

Ändern Sie die Größe aller Bilder basierend auf einem bestimmten Bild mit Kutools for Word auf dieselbe Größe

Fügen Sie mehrere Bilder mit derselben Größe in ein Word-Dokument mit VBA-Code ein

Mit dem folgenden VBA-Code können Sie mehrere Bilder einfügen und gleichzeitig auf die angegebene Größe ändern. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Fügen Sie mehrere Bilder mit derselben Größe ein:

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. Und dann drücken F5 Schlüssel zum Ausführen dieses Codes, a Entdecken Wenn das Fenster angezeigt wird, wählen Sie den Ordner aus, der die Bilder enthält, die Sie einfügen möchten. Siehe Screenshot:

4. Dann klick OK Klicken Sie auf die Schaltfläche, und ein Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, ob Sie die Größe der Bilder ändern möchten. Siehe Screenshot:

5. Klicken Sie Jaund geben Sie die durch Komma getrennten Größenangaben für Höhe und Breite in das Textfeld ein (siehe Abbildung):

6. Und dann klick OKwurden alle eingefügten Bilder in derselben Größe neu angeordnet, siehe Screenshot:

Note: Die Einheitsgröße ist Teich im VBA-Code.

Ändern Sie die Größe aller Bilder basierend auf einem bestimmten Bild mit Kutools for Word auf dieselbe Größe

Wenn in Ihrem Word-Dokument mehrere Bilder vorhanden sind, mit Kutools for Word Bildergröße ändern Mit diesem Dienstprogramm können Sie schnell die Größe aller Bilder auf die gleiche Größe ändern.

Nach der Installation Kutools for WordBitte machen Sie Folgendes:

1. Passen Sie ein Bild an die gewünschte Größe an, wählen Sie es aus und klicken Sie auf Kutoolen Plus > Resize > Ändern Sie die Größe von Bildern mit Auswahl, siehe Screenshot:

2. Alle Bilder in diesem Word-Dokument wurden sofort auf die gleiche Größe wie das ausgewählte geändert, siehe Screenshot:

Klicken Sie hier, um Kutools for Word herunterzuladen und jetzt kostenlos zu testen!

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

➕ Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀

Free Download     Weiterlesen     JETZT KAUFEN