Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

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

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

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

Mit Kutools for Word können Sie die Größe aller Bilder basierend auf einem bestimmten Bild auf dieselbe Größe ändern


Größe aller Bilder auf die gleiche Größe basierend auf ausgewählten:

Um die Größe aller Bilder auf die gleiche Größe zu ändern, sollten Sie sie normalerweise einzeln ändern, aber mit Kutools for Word's Bildergröße ändern Mit dieser Funktion können Sie alle Bilder mit derselben Größe um einen ausgewählten Wert anpassen. Auf der anderen Seite können Sie sie auch nach Bedarf auf einen bestimmten Prozentsatz skalieren.

doc justiere Bilder 05

Kutools for Word: mit mehr als 100 handlichen Word-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Klicken Sie hier, um die Testversion herunterzuladen und zu testen.


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

Der folgende vba-Code kann Ihnen dabei helfen, mehrere Bilder einzufügen und diese auf die angegebene Größe zu ändern. Führen Sie dazu die folgenden Schritte aus:

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

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Mehrere Bilder gleicher Größe einfügen:

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 Sie F5 Schlüssel, um diesen Code auszuführen, a Unserere Fenster wird angezeigt. Wählen Sie den Ordner aus, der die Bilder enthält, die Sie einfügen möchten. Siehe Screenshot:

doc Einfügen von Bildern mit derselben Größe 1

4. Dann klick OK und eine Eingabeaufforderung wird eingeblendet, um Sie daran zu erinnern, ob Sie die Größe der Bilder ändern möchten. Siehe Screenshot:

doc Einfügen von Bildern mit derselben Größe 2

5. Klicken Sie Jaund geben Sie die durch Kommas getrennten Größennummern der Höhe und Breite in das Textfeld ein, siehe Screenshot:

doc Einfügen von Bildern mit derselben Größe 3

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

doc Einfügen von Bildern mit derselben Größe 4

Text: Die Einheitengröße ist im VBA-Code angegeben.


Mit Kutools for Word können Sie die Größe aller Bilder basierend auf einem bestimmten Bild auf dieselbe Größe ändern

Wenn in Ihrem Word-Dokument mehrere Bilder vorhanden sind, drücken Sie Kutools for Word Bildergröße ändern Mit diesem Dienstprogramm können Sie die Größe aller Bilder schnell wie das jeweilige Bild ändern.

Kutools for Word : mit mehr als 100 handlichen Word-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Nach der Installation Kutools for Wordmach es so:

1. Passen Sie ein Bild an die gewünschte Größe an, wählen Sie es aus und klicken Sie auf Unternehmen > Bildergröße ändern > Größe der Bilder mit Auswahl ändern, siehe Screenshot:

doc Einfügen von Bildern mit derselben Größe 5

2. Und alle Bilder in diesem Word-Dokument wurden sofort wie das ausgewählte Bild verkleinert, siehe Screenshot:

doc Einfügen von Bildern mit derselben Größe 6

Klicken Sie hier, um Kutools for Word herunterzuladen und eine kostenlose Testversion zu erhalten!



Empfohlene Word-Produktivitätswerkzeuge

Kutools für Word - Mehr als 100 Erweiterte Funktionen Sparen Sie bei Word 50% Zeit

  • Komplizierte und wiederholte Operationen können in Sekundenschnelle einmalig ausgeführt werden.
  • Fügen Sie mehrere Bilder in verschiedenen Ordnern gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zusammen und kombinieren Sie sie in der gewünschten Reihenfolge.
  • 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, Sammlung von Tools für gemeinsame Konvertierungen und Auswahl usw.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 8 months ago
    Hi, hello
    I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
    Thanks for that :)