Hur konverterar jag alla länkade bilder till inbäddade i Word-dokument?
När du skickar ett Word-dokument som innehåller länkade bilder till andra kommer bilderna att saknas och visas på mottagarens dator enligt nedanstående skärmdump. Hur konverterar jag alla länkade bilder till inbäddade samtidigt innan de skickas till andra? Den här artikeln innehåller en VBA-metod för att hantera den.
Konvertera länkade bilder till inbäddade med VBA-kod
Konvertera länkade bilder till inbäddade med VBA-kod
Använd nedanstående VBA-kod för att konvertera alla länkade bilder i ett dokument till inbäddade.
1. Öppna Word-dokumentet innehåller länkade bilder som du kommer att konvertera till inbäddade bilder. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul. Kopiera sedan nedan VBA-koden till Modulerna fönster. Se skärmdump:
VBA-kod: Konvertera alla länkade bilder till inbäddade samtidigt
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. tryck på F5 för att köra koden.
Sedan konverteras alla länkade bilder i det aktuella dokumentet till inbäddade bilder samtidigt.
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...