Zum Hauptinhalt springen

Wie fügt man Bilder in Word ein und ändert ihre Größe auf die gleiche Größe?

Author: Xiaoyang Last Modified: 2025-08-06

Normalerweise können Sie mehrere Bilder auf einmal mit ihren ursprünglichen Größen in ein Word-Dokument einfügen. Es gibt jedoch Zeiten, in denen Sie sicherstellen müssen, dass alle Bilder die gleiche Größe haben, um ein konsistentes und professionelles Erscheinungsbild zu gewährleisten. Das manuelle Ändern der Größe jedes Bildes kann zeitaufwendig sein. Dieser Leitfaden zeigt Ihnen, wie Sie mehrere Bilder effizient in ein Word-Dokument einfügen und ihre Größe gleichmäßig anpassen, um ein professionelles und kohärentes Layout sicherzustellen.

Einfügen und Anpassen der Größe mehrerer Bilder auf dieselbe Größe in Word mit VBA

Ändern Sie die Größe aller Bilder so, dass sie einem bestimmten Bild entsprechen, mit Kutools für Word


Einfügen und Anpassen der Größe mehrerer Bilder auf dieselbe Größe in Word mit VBA

Der folgende VBA-Code kann Ihnen helfen, mehrere Bilder einzufügen und ihre Größe auf Ihre angegebenen Abmessungen auf einmal anzupassen. Bitte folgen Sie diesen Schritten:

  1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
  2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
  3. 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
    
  4. Drücken Sie F5, um diesen Code auszuführen. Ein Durchsuchen-Fenster wird erscheinen. Wählen Sie den Ordner aus, der die Bilder enthält, die Sie einfügen möchten, und klicken Sie auf OK.

    Browse window

  5. Eine Aufforderung wird erscheinen, die fragt, ob Sie die Bilder skalieren möchten. Klicken Sie auf Ja.

    Confirmation dialog saying 'Do you want to resize all pictures?'

  6. Geben Sie die Höhe und Breite in Punkten (pt), getrennt durch ein Komma, in das erscheinende Textfeld ein, und klicken Sie dann auf OK.

    Dialog box to specify size

  7. Alle eingefügten Bilder werden nun auf die angegebenen Abmessungen skaliert.

    All the inserted images are resized


Ändern Sie die Größe aller Bilder so, dass sie einem bestimmten Bild entsprechen, mit Kutools für Word

Wenn Ihr Word-Dokument mehrere Bilder enthält, kann das Ändern ihrer Größe einzeln mühsam sein. Mit Kutools für Word ermöglicht Ihnen das Hilfsprogramm Bilder skalieren, schnell alle Bilder so zu skalieren, dass sie der Größe eines bestimmten Bildes entsprechen.

Kutools für Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.
  1. Passen Sie ein Bild auf die gewünschte Größe an und wählen Sie es aus. Klicken Sie dann auf Kutools Plus > Skalieren > Alle Bilder basierend auf der Auswahl skalieren.

    Resize All Images Based on Selection option on the Kutools Plus tab on the ribbon

Alle Bilder im Word-Dokument werden sofort so skaliert, dass sie der Größe des ausgewählten Bildes entsprechen.

All pictures are resized to match the size of the selected picture

Kutools für Word ist das ultimative Word-Add-in, das Ihre Arbeit optimiert und Ihre Dokumentverarbeitungsfähigkeiten steigert. Jetzt herunterladen!

Die besten Produktivitätstools für das Büro

Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Die besten Produktivitätstools für das Büro

Kutools für Word – 100+ Werkzeuge für Word