在Excel中通过VBA代码批量插入图片的步骤如下：
准备工作
确保图片已经保存在一个文件夹中，并且图片名称最好与表格中的某一列数据对应，例如产品名称或员工工号。
在表格中添加一列，用于存储与图片名称对应的数据，这列数据将作为VBA代码的查找依据。
VBA代码
打开Excel，按`Alt + F11`打开VBA编辑器。
在VBA编辑器中，插入一个新的模块。
编写以下VBA代码：
```vba
Sub 批量插入图片（）
Dim sh As Worksheet
Dim rng As Range
Dim cel As Range
Dim picPath As String
Dim picName As String
' 设置工作表
Set sh = ThisWorkbook.Sheets（"Sheet1"） ' 将“Sheet1”替换成你的工作表名称
' 设置数据范围
Set rng = sh.Range（"A2:A10"） ' 将“A2:A10”替换成你的数据范围
' 设置图片文件夹路径
picPath = "C:\图片文件夹\" ' 将“C:\图片文件夹\”替换成你的图片文件夹路径，注意路径最后要有“\”
For Each cel In rng
picName = cel.Value & ".jpg" ' 假设图片格式为jpg，根据实际情况修改
On Error GoTo nextCel ' 如果图片不存在，跳到下一个单元格
Set rng = cel.Offset（0, 1） ' 图片插入在数据右侧一列
With sh.Pictures.Insert（picPath & picName）
.Left = cel.Left
.Top = cel.Top
End With
Next cel
End Sub
```
运行代码
按下`F5`运行代码，或者关闭VBA编辑器并重新打开Excel，然后按`Alt + F8`选择并运行`批量插入图片`宏。
这样，代码会遍历指定的数据范围，并将对应图片插入到每个单元格的数据右侧一列。
注意事项：
确保图片路径正确，并且图片文件存在于指定的文件夹中。
如果图片格式不是jpg，需要修改代码中的文件扩展名。
如果需要插入的图片数量较多，可以考虑将数据范围扩大，或者优化代码以提高效率。