謝謝邀請！在Excel單元格里，假設你的表為sheet1，調出控制元件工具箱，在表格上插入一張圖片，此時圖片為空，可自由調整大小及其他屬性。按alt+F11，進入VBA，雙擊sheet1，將下面程式碼全部複製全部貼上，再單擊選單上位於停止鍵（小正方形）後面的設計模式，退出設計模式，回到sheet1，如果沒有弄錯的話此時照片已經在上面了。程式已經過驗證。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Image1.Picture = LoadPicture("d:\照片\" & Cells(1, 1) & ".jpg")

End Sub

1、新建一個txt格式的記事本檔案-在記事本檔案中輸入：DIR *.* /B >LIST.TXT-將此記事本檔案後輟名，由txt改為bat。會彈出重新命名對話方塊，單擊“是”。（溫馨提示：你也可以把檔案“*.bat”放在其他資料夾裡執行，獲取當前資料夾下面的所有檔名哦！）-雙擊檔案“*.bat”即可生成list.txt檔案。開啟txt檔案就可以看到當前資料夾內的所有檔名列表。

2、把得到的檔名複製到excel檔案，在另一列輸入函式HYPERLINK(CONCATENATE("檔案所在碟符:資料夾名",引用單元格))，比如是這樣的，=HYPERLINK(CONCATENATE("F:插圖",A1))向下拉，瞬間得到其他圖片路徑。