Ga naar hoofdinhoud

Hoe kan ik alle / meerdere afbeeldingen in Word verkleinen?

Wanneer we afbeeldingen van internet of andere bestanden kopiëren of importeren, kan de grootte van de afbeeldingen variëren. Iedereen weet hoe we afbeeldingen een voor een moeten verkleinen, maar als we ze in één keer naar hetzelfde formaat willen verkleinen, hoe kunnen we dat dan doen? Deze tutorial laat je verschillende methoden zien om het formaat van afbeeldingen te wijzigen.

Wijzig de grootte van afbeeldingen handmatig in Word

Wijzig het formaat van afbeeldingen met VBA

Wijzig het formaat van meerdere afbeeldingen in één keer met Kutools voor Word


Wijzig de grootte van afbeeldingen handmatig in Word

1. Om de formaatgrepen van de afbeelding te tonen door op de afbeelding te klikken;

2. Plaats de cursor op een van de formaatgrepen van de afbeelding.

3. Versleep de formaatgreep totdat het afbeeldingsformaat geschikt is voor uw behoeften. Zie screenshot:

doc afbeeldingen aanpassen 1

Note: Met deze methode kunt u het formaat van meerdere afbeeldingen niet in één keer wijzigen. U moet ze een voor een vergroten of verkleinen totdat alle afbeeldingen zijn aangepast.


Wijzig het formaat van afbeeldingen met VBA

Met de volgende VBA-code kunt u het formaat van afbeeldingen wijzigen naar uw ideale formaat. U kunt het als volgt doen:

In dit voorbeeld wijzigen we de grootte van de afbeelding naar 1.78 inch hoogte en 3.17 inch breedte.

1. Selecteer een afbeelding waarvan u de grootte wilt wijzigen;

2. pers Alt + F11 om de te openen Microsoft Visual Basic voor toepassingen venster;

3. Klikken Module oppompen van Invoegen tab, kopieer en plak de volgende VBA-code in het Module venster;

VBA-code: verklein één afbeelding naar een specifieke grootte:

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. Klik lopen knop of F5 toets om de VBA-code uit te voeren, en de geselecteerde afbeelding is aangepast aan uw gewenste grootte.

Note: In de bovenstaande code,  In shp.Height = InchesToPoints (1.78) en shp.Width = InchesToPoints (3.17) zijn de hoogte en breedte van de afbeelding, u kunt de grootte aanpassen aan uw behoefte.

Met deze VBA-code kunt u ook niet het formaat van alle of meerdere afbeeldingen tegelijk wijzigen. U moet heen en weer gaan tussen het Word-document en het Microsoft Visual Basic voor toepassingen venster om de afbeelding te selecteren en de code toe te passen. Dat kost te veel tijd.


Wijzig het formaat van afbeeldingen met Kutools voor Word

met Kutools voor Word 's Wijzig afbeeldingen hulpprogramma, kunt u die vervelende en tijdrovende handelingen uit de weg ruimen en snel het formaat van alle afbeeldingen in uw document wijzigen.

Kutools for Word : met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. 

1. Pas dit hulpprogramma toe door op te klikken Koetools Plus > resize. Zie screenshot:

2. Als u het formaat van alle afbeeldingen wilt wijzigen tot een bepaald percentage van hun oorspronkelijke grootte, selecteert u een van de zes percentages uit de vervolgkeuzelijst. Als u bijvoorbeeld het formaat van alle afbeeldingen wilt wijzigen tot 50% van hun oorspronkelijke grootte, selecteert u 50%. Na het klikken 25%, je zult zien dat alle foto's op 50% zijn verkleind. Zie screenshot:

doc afbeeldingen aanpassen 3

Als u alle afbeeldingen op hetzelfde formaat wilt aanpassen met een geselecteerde afbeelding, selecteer dan een afbeelding als modelmaat en klik vervolgens op Koetools Plus > resize > Formaat van afbeeldingen wijzigen met selectie, en alle afbeeldingen zullen dezelfde grootte krijgen op basis van de geselecteerde, zie screenshot:

doc afbeeldingen aanpassen 4

Voor meer gedetailleerde informatie over Kutools for Word's Wijzig afbeeldingen hulpprogramma, klikt u op hier.

Klik om Kutools voor Word en nu gratis uit te proberen!


Demo: wijzig het formaat van alle afbeeldingen tegelijk in Word

Kutools for Word: met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. Download en probeer nu gratis!

Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀
 
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