Wie fügt man Bilder in Word ein und ändert ihre Größe auf die gleiche Größe?
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
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:
- Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
- Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
- 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.
- Eine Aufforderung wird erscheinen, die fragt, ob Sie die Bilder skalieren möchten. Klicken Sie auf Ja.
- 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.
- Alle eingefügten Bilder werden nun auf die angegebenen Abmessungen skaliert.
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
Ä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.
- 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.
Alle Bilder im Word-Dokument werden sofort so skaliert, dass sie der Größe des ausgewählten Bildes entsprechen.
Die besten Produktivitätstools für das Büro
Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!
🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...
📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...
✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...
🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...
➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...
🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...
⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!
Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint
📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern
Die besten Produktivitätstools für das Büro
Kutools for Word – 100+ Tools für Word
- 🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Stapelweise Konvertierung zu PDF
- ✏ Text bearbeiten: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Code erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – unterstützt über40 Sprachen!