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
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.
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!
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...