如何在Excel中用相應(yīng)的圖片替換文本？

假設(shè)，我在工作表中有一個產(chǎn)品名稱列表，并且在計算機(jī)磁盤中有一個文件夾，其中包含產(chǎn)品名稱的對應(yīng)圖片。 現(xiàn)在，我需要在Excel中查找產(chǎn)品名稱并將其替換為它們的相對圖像，而不必一一插入，如下圖所示。 在Excel中是否有任何好的快速解決方案來處理此工作？

用VBA代碼用相應(yīng)的圖片替換文本

用相應(yīng)的圖片替換文字 Kutools for Excel

用VBA代碼用相應(yīng)的圖片替換文本

通常，沒有簡單直接的方法可讓我們在Excel中基于文本字符串插入相對圖片，但是，以下VBA代碼可以幫助您將文本替換為其對應(yīng)的圖片。

1. 媒體 Alt + F11鍵 顯示 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 在窗口中，單擊 插頁 > 模塊 以顯示一個新的模塊窗口，然后將以下VBA代碼復(fù)制并粘貼到 模塊 窗口。

VBA代碼：用相應(yīng)的圖片替換文本

Sub InsertPicture()Upadateby ExtendofficeDim xPath As StringDim xLastRow As LongDim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)Application.ScreenUpdating = FalsexPath = "C:UsersdtDesktopFruits"If Right(xPath, 1) <> "" Then xPath = xPath & ""xLastRow = Cells(Rows.Count, "A").End(xlUp).RowFor Each Rng In WorkRngIf Rng.Value <> "" ThenIf Dir(xPath & Rng.Value & ".jpg") <> "" ThenActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").SelectWith Selection.ShapeRange.LockAspectRatio = msoFalse.Left = Rng.Left.Top = Rng.Top.Width = Rng.Width.Height = Rng.HeightEnd WithRng.ClearContentsElseRng.Value = "N/A"End IfEnd IfNextApplication.ScreenUpdating = TrueEnd Sub