Kuinka muuntaa kaikki linkitetyt kuvat upotetuiksi Word-asiakirjaan?
Kun lähetät Word-asiakirjan, joka sisältää linkitettyjä kuvia muille, kuvat puuttuvat ja näkyvät vastaanottajan tietokoneessa alla olevan kuvakaappauksen mukaisesti. Kuinka muuntaa kaikki linkitetyt kuvat upotetuiksi kerralla ennen lähettämistä muille? Tämä artikkeli tarjoaa VBA-menetelmän sen käsittelemiseksi.
Muunna linkitetyt kuvat upotetuiksi VBA-koodilla
Muunna linkitetyt kuvat upotetuiksi VBA-koodilla
Käytä alla olevaa VBA-koodia muuntaaksesi kaikki asiakirjan linkitetyt kuvat upotetuiksi.
1. Avaa Word-dokumentti, joka sisältää linkitettyjä kuvia, jotka muunnat upotetuiksi kuviksi. paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduuli. Kopioi sitten alla oleva VBA-koodi tiedostoon Moduulit ikkuna. Katso kuvakaappaus:
VBA-koodi: Muunna kaikki linkitetyt kuvat upotetuiksi kerralla
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 Sub3. paina F5 avain koodin suorittamiseen.
Sitten kaikki nykyisen asiakirjan linkitetyt kuvat muunnetaan upotetuiksi samanaikaisesti.
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!
🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...
📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...
✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...
🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...
➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...
🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...
⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Yli 100 Wordin työkalua
- 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
- 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
- ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
- 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
- ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja