Skip to main content

Kutools for Office — 一套工具，五種功能。完成更多工作。

如何將Word文檔中的所有連結圖片轉換為嵌入式圖片？

Author Siluvia Last modified

當您將包含連結圖片的Word文檔發送給其他人時，圖片可能會遺失，並在接收者的電腦上顯示如下方截圖所示。如何在發送之前一次性將所有連結圖片轉換為嵌入式圖片呢？本文提供了一種使用VBA方法來處理此問題的方式。

Linked image that cannot be displayed

使用VBA代碼將連結圖片轉換為嵌入式圖片

使用VBA代碼將連結圖片轉換為嵌入式圖片

請應用以下VBA代碼，將文檔中的所有連結圖片轉換為嵌入式圖片。

1. 打開包含要轉換為嵌入式圖片的Word文檔。按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，點擊 插入 > 模組。然後將以下VBA代碼複製到模組窗口中。參見截圖：

VBA window with a module inserted

VBA代碼：一次性將所有連結圖片轉換為嵌入式圖片

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. 按下 F5 鍵運行代碼。

然後當前文檔中的所有連結圖片會同時被轉換為嵌入式圖片。

最佳辦公效率工具

Kutools for Word -透過超過 100 項卓越功能，提升您的 Word 使用體驗！

🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish（保留格式）／Super Translate（保留格式）／AI Redaction／AI Proofread...

📘 文件掌握：分割頁面／文檔合併／區域導出成各種格式（PDF/TXT/DOC/HTML...）／批量轉換為 PDF...

✏ 正文編輯：批量查找與替換多個文件／批量調整所有圖片大小／翻轉表格的行與列／表格轉文本...

🧹 輕鬆清理：快速清除多餘空格／分節符／文字框／超連結／更多清除工具請前往刪除工具組...

➕ 創意插入：插入千位分隔符／複選框／選項按鈕／二維碼／條形碼／批量插入圖片／還有更多精彩功能在插入工具組...

🔍 精確選擇：精確定位特定頁面／表格／形狀／標題段落／使用更多 選擇 功能提升導航效率...

⭐ 亮點增強：導航至任何區域／自動插入重複文字／切換文檔窗口／11 項轉換工具...

🌍 支援40+種語言：可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言！

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即體驗這些功能嗎？立即下載 Kutools for Word！🚀
 

✨ Kutools for Office——一次安裝，五大強力工具！

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具

免費下載 立即購買 深入瞭解 Kutools