Note: The other languages of the website are Google-translated. Back to English

 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:

doc Bilder mit derselben Größe einfügen 1

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:

doc Bilder mit derselben Größe einfügen 2

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

doc Bilder mit derselben Größe einfügen 3

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

doc Bilder mit derselben Größe einfügen 4

Hinweis: 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.

Kutools for Word : Mit mehr als 100 praktischen Word-Add-Ins können Sie diese innerhalb von 60 Tagen ohne Einschränkung testen. 

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!


Empfohlene Word-Produktivitätswerkzeuge

 

Kutools für Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
Kommentare (4)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, hallo
Ich bin Soda, ich bin hier, um das zu sagen, ich lerne wirklich viel von Ihrer Website und den Informationen, die Sie geben.
Dank dafür :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
danke für die hilfe ... es ist sehr interessant ... große aufgabe ... viel glück
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Prozentsatz/Bericht? Pixel? cm?
DANKE!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Graselli
Die Einheitsgröße ist Teich im obigen VBA-Code.
Vielen Dank!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte