如何在 Excel 中將文字替換為對應的圖片？

作者Xiaoyang修改日期2025-04-08

在實際工作中，我們經常希望根據特定儲存格中的文字，自動在 Excel 中顯示對應的圖片（例如：輸入產品名稱即顯示該產品圖片，或根據狀態自動呈現相應圖示）。由於 Excel 本身並未內建「文字轉圖片」功能，因此需運用一些技巧來實現此目標。本文接下來將詳細說明兩種主要解決方案及其優化方法。

使用 VBA 程式碼將文字替換為對應圖片

使用 Kutools for Excel 將文字替換為對應圖片

使用 VBA 程式碼將文字替換為對應圖片

一般來說，Excel 並沒有簡便直接的方式能根據文字字串插入對應圖片，但下列 VBA 程式碼可協助您將文字替換為相應的圖片。

1. 按下「Alt + F11」，立即開啟「Microsoft Visual Basic for Applications」視窗！

2. 在該視窗中，點擊「插入」＞「模組」以開啟新模組視窗，並將下列 VBA 程式碼複製貼上至其中。

VBA 程式碼：將文字替換為對應圖片

Sub ReplaceTextWithPictures()
'Updateby Extendoffice
    Dim ws As Worksheet
    Dim selectedRange As Range
    Dim cell As Range
    Dim pic As Picture
    Dim picPath As String
    Dim foundPic As Boolean
    Dim fileExtensions As Variant
    Dim ext As Variant
    Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
    fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
    On Error Resume Next
    Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
    On Error GoTo 0
    If selectedRange Is Nothing Then
        MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
        Exit Sub
    End If
    Set ws = selectedRange.Worksheet
    For Each cell In selectedRange
        If Not IsEmpty(cell.Value) Then
            foundPic = False
            For Each ext In fileExtensions
                picPath = imageFolderPath & cell.Value & "." & ext
                If Dir(picPath) <> "" Then
                    foundPic = True
                    Exit For
                End If
            Next ext
            If foundPic Then
                For Each pic In ws.Pictures
                    If pic.TopLeftCell.Address = cell.Address Then pic.Delete
                Next pic
                Set pic = ws.Pictures.Insert(picPath)
                With pic
                    .Top = cell.Top
                    .Left = cell.Left
                    .Width = cell.Width
                    .Height = cell.Height
                End With
            End If
        End If
    Next cell
End Sub

3. 接著按下 F5 鍵執行此程式碼，在彈出的對話方塊中選取您要插入對應圖片的資料區域，請參閱截圖：

用於選取文字轉圖片取代範圍的 VBA 程式碼對話框

4. 接著點擊「確定」按鈕，所有對應圖片將立即取代原文本，詳情請參閱截圖：

用於以對應圖片取代文字的 VBA 程式碼

注意：在上述程式碼中，您需根據實際需求修改此指令稿中的圖片文件路徑：Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"

使用 Kutools for Excel 將文字替換為對應圖片

若您不熟悉或不想使用 VBA 程式碼，不妨試用 Kutools for Excel！這款工具提供強大又高效的解決方案，只需幾次點擊，就能輕鬆將文字替換為對應圖片。透過 Kutools，您可直接將特定文字與預設圖片配對，完全無需撰寫任何程式碼。此外，還能依需求自由調整圖片尺寸，讓圖片更靈活地融入 Excel 工作表中。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 點擊「KUTOOLS PLUS」＞「匯入／匯出」＞「匹配導入圖片」，請參閱截圖：

2. 在「匹配導入圖片」對話方塊中，請依下列方式設定選項：

在「匹配區域」文字方塊中，請點擊選取您要與圖片配對的儲存格範圍；
接著，點擊「新增」按鈕以選取您要匯入的圖片檔案；
從導入大小下拉式清單中指定要插入的圖片尺寸（在此可依需求選擇「符合圖片大小」、「符合儲存格大小」或「指定圖片大小」）；
為您的圖片選擇導入順序；
最後，點擊「匯入」按鈕。

3. 接著，從彈出的「匹配導入圖片」對話方塊中選取一個儲存格來定位對應圖片（您也可以選擇原始文字所在的儲存格），詳情請參閱截圖：

顯示選取儲存格以插入對應圖片的螢幕截圖

4. 點擊「確定」按鈕後，所有與文字相符的圖片都已插入工作表中，請參閱截圖：

顯示使用 Kutools 後圖片已插入 Excel 儲存格中的螢幕截圖

注意事項：

若文字找不到對應的圖片，該儲存格將不會插入任何內容。
若要水平插入圖片，請在「導入順序」區段中勾選「先列後行」。

在 Excel 中，透過 VBA 程式碼或 Kutools for Excel 工具將文字替換為對應圖片，不僅能大幅提升工作效率，更能強化資料的視覺化效果！無論您偏好撰寫 VBA 指令稿，還是使用 Kutools 外掛程式，這兩種方法都能快速實現文字轉圖片的替換，靈活滿足多元工作需求。選對方法，讓您的資料處理更高效、更直觀，全面提升工作品質！若您想掌握更多 Excel 實用技巧，我們的網站提供數千篇教學文章，助您精通 Excel。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多