使用VBA通過AddPicture方法將圖片嵌入指定單元格，設置Placement屬性使其隨單元格移動，并通過循環批量導入多張圖片，最后調整圖片尺寸適配單元格。

如果您希望在Excel工作表中通過自動化方式將圖片嵌入指定單元格，可以利用VBA（VisualBasicforApplications）實現精確控制。以下是實現該功能的具體方法。

本文運行環境：DellXPS13，Windows11

一、使用Shapes.AddPicture方法插入圖片

該方法通過在工作表上添加圖形對象的方式插入圖片，并可將其對齊到特定單元格位置。

1、按Alt+F11打開VBA器，插入一個新的模塊。

2、輸入以下代碼：

Setpic=ActiveSheet.Shapes.AddPicture(Filename:="C:圖片示例.jpg",linkToFile:=False,SaveWithdocument:=True,Left:=Cells(2,2).Left,Top:=Cells(2,2).Top,Width:=-1,Height:=-1)

3、調整Filename路徑為實際圖片路徑，Left和Top使用目標單元格的.Left與.Top屬性對齊位置。

4、運行宏后，圖片將出現在指定單元格上方并保持與單元格的位置關聯。

二、將圖片鏈接至單元格并隨單元格移動

此方法確保圖片在用戶移動或調整單元格時隨之移動，增強布局穩定性。

1、在插入圖片后，選中圖片對象并右鍵選擇“設置圖片格式”。

2、在“屬性”選項中選擇“隨單元格一起移動和調整大小”。

3、在VBA中使用如下語句確保屬性被正確設置：

pic.Placement=xlMoveAndSize

4、這將使圖片完全受所在單元格行列變化的影響。

三、批量導入多張圖片到多個單元格

當需要將多個圖片分別插入不同單元格時，可通過循環讀取路徑列表自動完成。

1、準備一個包含圖片路徑和對應單元格地址的數據表，例如A列為路徑，B列為行號，C列為列號。

2、編寫循環結構遍歷每一行數據：

Fori=2ToLastRowimgPath=Cells(i,1).ValueIfDir(imgPath)""ThenSetpic=ActiveSheet.Shapes.AddPicture(Filename:=imgPath,linkToFile:=False,SaveWithdocument:=True,Left:=Cells(Cells(i,2),Cells(i,3)).Left,Top:=Cells(Cells(i,2),Cells(i,3)).Top,Width:=-1,Height:=-1)pic.Placement=xlMoveAndSizeEndIfNexti

3、執行該腳本即可實現批量插入。

四、調整圖片尺寸以匹配單元格大小

為使圖片完美適應單元格，可在插入后立即設置其寬度和高度與單元格一致。

1、獲取目標單元格的寬度和高度值：

targetCellAsRangeSettargetCell=Cells(2,2)

2、修改圖片的Width和Height屬性：

pic.Width=targetCell.Widthpic.Height=targetCell.Height

3、若需保持原始比例，可在設置前啟用LockAspectRatio：

pic.LockAspectRatio=msoTrue

以上就是如何在Excel中使用VBA將圖片插入單元格的詳細內容，！