Direkt zum Inhalt

Wie kann ich die Größe aller / mehrerer Bilder in Word ändern?

Wenn wir Bilder aus dem Internet oder anderen Dateien kopieren oder importieren, kann die Größe der Bilder unterschiedlich sein. Jeder weiß, wie man die Größe von Bildern nacheinander ändert, aber wie können wir das tun, wenn wir die Größe auf einmal auf die gleiche Größe ändern möchten? Dieses Tutorial zeigt Ihnen verschiedene Methoden zum Ändern der Bildgröße.

Ändern Sie die Größe von Bildern manuell in Word

Ändern Sie die Größe von Bildern mit VBA

Ändern Sie mit Kutools for Word die Größe mehrerer Bilder gleichzeitig


Ändern Sie die Größe von Bildern manuell in Word

1. Um die Größengriffe des Bildes anzuzeigen, klicken Sie auf das Bild.

2. Setzen Sie den Cursor auf einen der Ziehpunkte für die Bildgröße.

3. Ziehen Sie den Größengriff, bis die Bildgröße Ihren Anforderungen entspricht. Siehe Screenshot:

doc Bilder anpassen 1

Note: Mit dieser Methode können Sie nicht die Größe mehrerer Bilder gleichzeitig ändern. Sie müssen die Größe einzeln ändern, bis alle Bilder in der Größe geändert wurden.


Ändern Sie die Größe von Bildern mit VBA

Mit dem folgenden VBA-Code können Sie die Größe von Bildern auf Ihre ideale Größe ändern. Sie können es wie folgt erledigen:

In diesem Beispiel ändern wir die Bildgröße auf 1.78 Zoll Höhe und 3.17 Zoll Breite.

1. Bitte wählen Sie ein Bild aus, dessen Größe Sie ändern möchten.

2. Drücken Sie Alt + F11 öffnen Microsoft Visual Basic für Applikationen Fenster;

3. Klicken Sie Modul von Insert Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in die ein Modul Fenster;

VBA-Code: Ändern Sie die Größe eines Bildes auf eine bestimmte Größe:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Führen Sie Knopf oder F5 Schlüssel zum Ausführen des VBA-Codes, und das ausgewählte Bild wurde auf Ihre gewünschte Größe angepasst.

Note: Im obigen Code,  In shp.Height = InchesToPoints (1.78) und shp.Width = InchesToPoints (3.17) Sind die Höhe und Breite des Bildes, können Sie die Größe ändern, um Ihren Anforderungen zu entsprechen.

Mit diesem VBA-Code können Sie auch nicht alle oder mehrere Bilder gleichzeitig in der Größe ändern. Sie müssen zwischen dem Word-Dokument und dem Microsoft Visual Basic für Applikationen Fenster, um das Bild auszuwählen und den Code anzuwenden. Das ist zu zeitaufwändig.


Ändern Sie die Größe von Bildern mit Kutools for Word

Mit der Kutools für Word 's Bildergröße ändern Mit diesem Dienstprogramm können Sie diese lästigen und zeitaufwändigen Vorgänge loswerden und die Größe aller Bilder aus Ihrem Dokument schnell ändern.

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

1. Bitte wenden Sie dieses Dienstprogramm an, indem Sie auf klicken Kutoolen Plus > Resize. Siehe Screenshot:

2. Wenn Sie die Größe aller Bilder auf einen bestimmten Prozentsatz ihrer ursprünglichen Größe ändern möchten, wählen Sie einen der sechs Prozent aus der Dropdown-Liste aus. Wenn Sie beispielsweise die Größe aller Bilder auf 50% ihrer Originalgröße ändern möchten, wählen Sie bitte 50%. Nach dem Klicken 25%Sie werden sehen, dass alle Bilder auf 50% verkleinert wurden. Siehe Screenshot:

doc Bilder anpassen 3

Wenn Sie alle Bilder mit einem ausgewählten Bild auf die gleiche Größe einstellen möchten, wählen Sie bitte ein Bild als Modellgröße aus und klicken Sie dann auf Kutoolen Plus > Resize > Ändern Sie die Größe von Bildern mit Auswahlund alle Bilder werden basierend auf dem ausgewählten Bild in der gleichen Größe angepasst, siehe Screenshot:

doc Bilder anpassen 4

Für detailliertere Informationen über Kutools for Word Bildergröße ändern Dienstprogramm, klicken Sie bitte hier.

Klicken Sie hier, um Kutools for Word herunterzuladen und jetzt kostenlos zu testen!


Demo: Ändern Sie die Größe aller Bilder gleichzeitig in Word

Kutools for Word: Mit mehr als 100 praktischen Word-Add-Ins können Sie diese in 60 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos 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...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀
 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations