1. 在桌面建立素材

資料夾“相簿”存放要插入的圖片，Excel“花”為待插入的Excel表。

2. “花”表格內容佈局如下

3. 建立VBA函式（sheet1-->右鍵-->檢視程式碼-->將如下程式碼複製進來-->儲存）

Sub 插入圖形應用()

For Each shap In Sheet1.Shapes

If shap.Type <> 8 Then shap.Delete

Next shap

For Each Rng In Range([a2], Cells(Application.CountA(Columns(1)) , 1))
Dim i As String
            
i = ""
If Len(Dir(ThisWorkbook.Path & "\相簿\" & Rng & ".jpg")) Then

i = ThisWorkbook.Path & "\相簿\" & Rng & ".jpg"

ElseIf Len(Dir(ThisWorkbook.Path & "\相簿\" & Cells(j, 1) & ".png")) Then
i = ThisWorkbook.Path & "\相簿\" & Rng & ".png"

End If

Set rngs = Cells(Rng.Row, 3)

Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height

Next

End Sub
 

4. 將Excel“開發工具”功能開啟（檔案-->選項-->自定義功能區-->開發工具打勾-->確定）

5. 插入表單控制元件（開發工具-->插入-->表單控制元件），滑鼠操作建立“按鈕”，彈框選擇如下圖。

確定並修改按鈕名稱為，“插入圖片”。

完工，可以測試一下效果啦！

插入圖片顯示大小由給定表格大小決定，可自行事先進行調節。

另，已經做了圖片格式“jpg”or“png”判斷，程式比較簡單，可根據需要自行修改。