Wie fügt man mehrere Bilder in Word ein und skaliert sie auf dieselbe Größe?

Normalerweise können Sie mehrere Bilder gleichzeitig mit ihrer Originalgröße in ein Word-Dokument einfügen. In bestimmten Fällen ist es jedoch erforderlich, dass alle Bilder dieselbe Größe aufweisen, um ein einheitliches und professionelles Erscheinungsbild zu gewährleisten. Das manuelle Skalieren jedes einzelnen Bildes kostet Zeit und Geduld. In dieser Anleitung zeigen wir Ihnen, wie Sie mehrere Bilder effizient in ein Word-Dokument einfügen und sie automatisch einheitlich skalieren – für ein stimmiges und professionell wirkendes Layout.

Mehrere Bilder in Word mithilfe von VBA einfügen und auf dieselbe Größe skalieren

Alle Bilder so skalieren, dass sie einer bestimmten Grafik entsprechen, mithilfe von Kutools für Word

Mehrere Bilder in Word mithilfe von VBA einfügen und auf dieselbe Größe skalieren

Der folgende VBA-Code ermöglicht es Ihnen, mehrere Bilder einzufügen und diese gleichzeitig auf Ihre vorgegebenen Abmessungen zu skalieren. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster 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. Drücken Sie F5, um diesen Code auszuführen. Es erscheint ein Durchsuchen-Fenster. Wählen Sie den Ordner mit den gewünschten Bildern aus und klicken Sie auf OK.
4. Es erscheint eine Aufforderung, ob Sie die Bilder skalieren möchten. Klicken Sie auf Ja.
5. Geben Sie Höhe und Breite in Punkt (pt), durch ein Komma getrennt, in das erscheinende Textfeld ein und klicken Sie anschließend auf OK.

   

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

   

Alle Bilder so skalieren, dass sie einer bestimmten Grafik entsprechen, mithilfe von Kutools für Word

Wenn Ihr Word-Dokument mehrere Bilder enthält, ist das schrittweise Skalieren mühsam. Mit Kutools für Word ermöglicht Ihnen das Bilder skalieren-Tool, schnell alle Bilder auf die Größe einer bestimmten Grafik anzupassen.

1. Passen Sie ein Bild auf die gewünschte Größe an und markieren Sie es. Klicken Sie dann auf KUTOOLS PLUS > Größe ändern > Alle Bilder basierend auf der Auswahl skalieren.

Alle Bilder im Word-Dokument werden sofort auf die Größe des ausgewählten Bildes skaliert.

Beste Office-Produktivitätswerkzeuge

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

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

 

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!

Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

⬇️ Jetzt herunterladen🎁 Das vollständige Paket kaufen📖 Weitere Informationen

Beste Office-Produktivitätswerkzeuge

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

• 🤖KUTOOLS AI-Funktionen:KI-Assistent/Echtzeit-Assistent/Super Polieren/Super Übersetzen/KI-Redaktion/KI Korrekturlesen
• 📘Dokument-Meisterschaft:Seiten aufteilen/Dokumente zusammenführen/Stapelweise in PDF konvertieren
• ✏Inhaltsbearbeitung:Stapelweise Suchen und Ersetzen/Alle Bilder skalieren
• 🧹Mühelose Bereinigung:Überflüssige Leerzeichen entfernen/Abschnittsumbruch entfernen
• ➕Kreative Einfügungen:Tausendertrennzeichen einfügen/Kontrollkästchen einfügen/QR-Code erstellen
• 🌍Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – mit Unterstützung für über 40 Sprachen!

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools