Hoe converteer je alle gekoppelde afbeeldingen naar ingebed in een Word-document?
Wanneer je een Word-document met gekoppelde afbeeldingen naar anderen verzendt, zullen de afbeeldingen ontbreken en worden weergegeven op de computer van de ontvanger, zoals in onderstaande schermafbeelding te zien is. Hoe converteer je alle gekoppelde afbeeldingen tegelijkertijd naar ingebed voordat je ze naar anderen verzendt? Dit artikel biedt een VBA-methode om dit probleem op te lossen.
Converteer gekoppelde afbeeldingen naar ingebed met VBA-code
Converteer gekoppelde afbeeldingen naar ingebed met VBA-code
Pas de onderstaande VBA-code toe om alle gekoppelde afbeeldingen in een document naar ingebed te converteren.
1. Open het Word-document met de gekoppelde afbeeldingen die je wilt converteren naar ingebedde afbeeldingen. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Module-venster. Zie schermafbeelding:
VBA-code: Converteer alle gekoppelde afbeeldingen tegelijkertijd naar ingebed
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.
Alle gekoppelde afbeeldingen in het huidige document worden dan tegelijkertijd geconverteerd naar ingebedde afbeeldingen.
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!