Hoe converteert u alle gekoppelde afbeeldingen naar ingesloten afbeeldingen in een Word-document?
Wanneer u een Word-document met gekoppelde afbeeldingen naar anderen verzendt, ontbreken die afbeeldingen en worden ze op de computer van de ontvanger weergegeven zoals in de onderstaande schermafbeelding. Hoe converteert u alle gekoppelde afbeeldingen tegelijk naar ingesloten afbeeldingen voordat u het document verzendt? Dit artikel biedt een VBA-oplossing om dit probleem eenvoudig aan te pakken.

Gekoppelde afbeeldingen converteren naar ingesloten met VBA-code
Gekoppelde afbeeldingen converteren naar ingesloten met VBA-code
Pas de onderstaande VBA-code toe om alle gekoppelde afbeeldingen in een document tegelijkertijd te converteren naar ingesloten afbeeldingen.
1. Open het Word-document met de gekoppelde afbeeldingen die u wilt omzetten naar ingesloten afbeeldingen. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Module-venster. Zie schermafbeelding:

VBA-code: Converteer alle gekoppelde afbeeldingen tegelijk naar ingesloten
Sub convert_all_inline_shapes()
'Updated by Extendoffice 20180906
Dim xIShape As InlineShape
For Each xIShape In ActiveDocument.InlineShapes
With xIShape
If .Type = wdInlineShapeLinkedPicture Then
.LinkFormat.SavePictureWithDocument = True
.LinkFormat.BreakLink
End If
End With
Next
End Sub 3. Druk op de toets F5 om de code uit te voeren.
Vervolgens worden alle gekoppelde afbeeldingen in het huidige document tegelijkertijd geconverteerd naar ingesloten afbeeldingen.
Beste kantoorproductiviteitstools
Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!
🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...
📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…
✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...
🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...
➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...
🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…
⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...
🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!
✨ Kutools for Office – Één installatie, vijf krachtige tools!
Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint
📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit
Beste kantoorproductiviteitstools
Kutools voor Word– 100+ Tools voor Word
- 🤖KUTOOLS AI-functies:AI Assistent/Realtime Assistent/Super Polish/Super Vertalen/AI Redactie/AI Proeflezen
- 📘Documentbeheersing:Pagina's splitsen/Documenten samenvoegen/Batchconversie naar PDF
- ✏Inhoudsbewerking:Batch Zoeken en Vervangen/Alle afbeeldingen herschalen
- 🧹Moeiteloos opschonen:Overbodige spaties verwijderen/Sectie-einde verwijderen
- ➕Creatieve invoegingen:Duizendtalscheidingstekens invoegen/Selectievakje invoegen/QR-code maken
- 🌍Ondersteunt 40+ talen: Kutools spreekt uw taal – met ondersteuning voor meer dan 40 talen!