Excel中如何快速匯入對應圖片，並對齊單元格大小尺寸？

推薦一個從資料夾中批次匯入圖片的方法，圖片在多也不怕了

Step 1：確認照片路徑，在B2中輸入公式：

="<table><img src=""C:UsersAdministratorDesktop查詢照片" &A2&".png"" width=""84"" height=""86"">"，下拉填充

注：①C:UsersAdministratorDesktop查詢照片 是照片儲存在電腦的位置

②png 是照片檔案型別

Step 2：新建txt檔案，複製B列公式到Txt檔案中

Step 3：從文字檔案中再複製一次，按Ctrl+V粘回到B列，圖片已對應插入，讓我們用動畫來見證這神奇的一刻！

第一步，建立需要匯入圖片的所有名稱的Excel 檔案，並儲存到圖片所在資料夾；

第二步，按Excel檔案中要匯入的名稱命名對應的圖片名稱；

第三步，將下圖程式碼考錄到Excel的Visual Basic編輯器的模組中；新增模組流程：開發工具→Visual Basic→插入→模組；

Sub 匯入配圖()

Dim cell As Range "宣告單元格變數

Dim hang As Long "宣告數量型變數

Dim rul As String "宣告字串變數

hang = Application.CountA(ActiveSheet.Range("A:A")) "A列總行數，列號可根據實際需要修改

rul = ThisWorkbook.Path & "\" "Excel與圖片所在資料夾路徑

For Each cell In ActiveSheet.Range("a2:a" & hang) "對活動工作表名稱列所有單無格進行迴圈

cell.Offset(0, 1).Select "選定匯入單格

On Error Resume Next "出現找不到圖片檔案錯誤後繼續執行程式

ActiveSheet.Pictures.Insert(rul & cell.Value & ".jpg").Select

"根據名稱匯入入對應的jpg格式圖片

Selection.ShapeRange.LockAspectRatio = msoFalse "取消圖片大小鎖定縱橫比

Selection.ShapeRange.Height = cell.Offset(0, 1).Height "設定圖片高度等於匯入單元格的高度

Selection.ShapeRange.Width = cell.Offset(0, 1).Width "設定圖片寬度等於匯入單元格的寬度

Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255) "圖片背景設為透明

Next cell

End Sub

第四步，執行宏流程：開發工具→宏→匯入配圖→執行；

第五步，結果，一鍵執行宏後，所有名稱快速匯入對應圖片，並對齊單元格大小尺寸。

把圖片名稱事先填入單元格第一列。

根據以下公式，填充單元格。

把填充好的單元格複製並貼上到記事本。

在excel中選擇性貼上。

選擇行，然後調整行高。

備註：

1、用到的公式：

="<table><img src="C:\測試圖片\" & A2& "" width="100">"

2、"C:\測試圖片"是我電腦存放圖片的位置。