Sub test()
Dim rg As Range, shp As Shape
Rem ---------------------------------------------------
Rem 清除圖形對象
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
Rem ---------------------------------------------------
Rem 按名稱插入圖片
Rem 下行代碼，根據A列開始循環處理
Rem 遇到錯誤繼續執行 Cells(Rows.Count, "A").End(3).Row
On Error Resume Next
For i = 2 To 8
Set rg = Cells(i, "K")
Rem 下面代碼，添加矩形
ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select
Rem 下面代碼，在矩形內部用圖片填充
Rem Selection.ShapeRange.Fill.UserPicture "E:\圖片\" & rg.Offset(0, -1) & ".jpg"
Selection.ShapeRange.Fill.UserPicture rg.Offset(0, -1)
Next
End Sub