Hoe voeg je afbeeldingen in en pas je ze aan naar dezelfde grootte in Word?
Normaal gesproken kun je meerdere afbeeldingen tegelijk in een Word-document invoegen met hun oorspronkelijke afmetingen. Er zijn echter momenten waarop je ervoor moet zorgen dat alle afbeeldingen dezelfde grootte hebben voor een consistente en professionele uitstraling. Het handmatig aanpassen van elke afbeelding kan tijdrovend zijn. Deze gids laat je zien hoe je efficiënt meerdere afbeeldingen in een Word-document kunt invoegen en ze uniform kunt aanpassen, zodat je een professionele en samenhangende indeling krijgt.
Voeg meerdere afbeeldingen in en pas ze aan naar dezelfde grootte in Word met behulp van VBA
Voeg meerdere afbeeldingen in en pas ze aan naar dezelfde grootte in Word met behulp van VBA
De volgende VBA-code kan helpen om meerdere afbeeldingen in te voegen en ze tegelijkertijd aan te passen naar de door jou gespecificeerde afmetingen. Volg deze stappen:
- Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
- Klik op Invoegen > Module en plak de volgende code in het Module-venster.
- Druk op F5 om deze code uit te voeren. Er verschijnt een Bladeren-venster. Selecteer de map met de afbeeldingen die je wilt invoegen en klik op OK.
- Er verschijnt een prompt waarin wordt gevraagd of je de afbeeldingen wilt aanpassen. Klik op Ja.
- Voer de hoogte en breedte in punten (pt), gescheiden door een komma, in het tekstvak dat verschijnt, en klik vervolgens op OK.
- Alle ingevoegde afbeeldingen worden nu aangepast naar de gespecificeerde afmetingen.
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
Pas de grootte van alle afbeeldingen aan om overeen te komen met een specifieke afbeelding met behulp van Kutools voor Word
Wanneer je Word-document meerdere afbeeldingen bevat, kan het één voor één aanpassen van de grootte ervan vervelend zijn. Met Kutools voor Word laat het hulpprogramma Afbeeldingen Formaat Wijzigen je snel alle afbeeldingen aanpassen naar de grootte van een specifieke afbeelding.
- Pas één afbeelding aan naar de gewenste grootte en selecteer deze. Klik vervolgens op Kutools Plus > Formaat Wijzigen > Formaat van Alle Afbeeldingen Aanpassen op Basis van Selectie.
Alle afbeeldingen in het Word-document worden onmiddellijk aangepast naar de grootte van de geselecteerde afbeelding.
Beste Office-productiviteitstools
Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!
🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...
📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...
✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...
🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...
➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...
🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...
⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...
🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!
✨ Kutools for Office – Één installatie, vijf krachtige tools!
Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit
Beste Office-productiviteitstools
Kutools for Word – 100+ tools voor Word
- 🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish / Super Vertalen / AI Redactie / AI Proeflezen
- 📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Batch converteren naar PDF
- ✏ Tekst bewerken: Batch Zoeken en Vervangen / Formaat Wijzigen van alle Afbeeldingen
- 🧹 Moeiteloos schoonmaken: Verwijder extra spaties / Verwijder sectie-einden
- ➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje invoegen / QR-codes maken
- 🌍 Ondersteunt meer dan40 Talen: Kutools spreekt uw taal – meer dan40 talen ondersteund!