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

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

Hinweis: 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 aus 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 Run Knopf oder F5 Schlüssel zum Ausführen des VBA-Codes, und das ausgewählte Bild wurde auf Ihre gewünschte Größe angepasst.

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


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 (6)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sparen Sie Ihr Geld und führen Sie dieses Makro aus: 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
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sparen Sie Ihr Geld und führen Sie dieses Makro aus: 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 Mit End-Sub Exzellent!!! Du hast mein Geld und meine Zeit gespart. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wo habe ich diesen Code eingegeben?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Weiß jemand, ob in Windows 365 ein Bildplatzhalter/Dropper/automatische Größenanpassungsfunktion verfügbar ist? Keine Ahnung, wo ich Hilfe suchen oder finden soll, da die Microsoft-Chat-Hilfe SO nicht hilfreich war. Irgendwelche Tipps würden sehr geschätzt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich muss alle Bilder in einem Word-Dokument auf die gleiche Breite skalieren, aber die Bilder nicht verformen. skalieren Sie sie also auf die gleiche Breite. Ist das über ein Makro möglich?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn Sie Ihr Dokument als .docx speichern, können Sie es als Zip-Archiv öffnen. Es wird einen Medienordner mit allen Bildern geben (meins hatte PNG-Bilder). Sie können dann Programme wie IrfanView, XnViewMP, FastStone Viewer verwenden, um Stapeltransformationen wie Größenänderung, Reduzierung der Farbtiefe usw. durchzuführen. Packen Sie Ihre Bilder wieder in zip und benennen Sie sie in docx um. Zum Beispiel musste ich in meinem docx voller Screenshots die Anzahl der Farben auf 8 reduzieren, was für Dokumentationszwecke ausreicht. Nach der Verarbeitung wurde aus meinem 10-MB-Dokument ein 1.8-MB-Dokument, sodass erhebliche Einsparungen möglich sind. Speichern Sie immer Ihr Original-Docx, falls Sie Bilder nach zu starker Verschlechterung/Verarbeitung usw. wiederherstellen möchten.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte