不知道你的VBA水平怎么样，这个我觉得很简单呀，在出货清单的每一行填上对应的图片路径和图版名称，然后做个循环把图自动插入就行了呀，插入图片的方法可以参见VBA帮助，我把它拷过来了，很简单的。下面是帮助原文：
AddPicture 方法
从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
FileName String 类型，必需。要创建的 OLE 对象的源文件。
LinkToFile MsoTriState 类型，必需。要链接至的文件。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 使图片成为其源文件的独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 建立图片与其源文件之间的链接。
SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 在文档中只保存链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。
Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。
Width Single 类型，必需。以磅为单位给出图片的宽度。
Height Single 类型，必需。以磅为单位给出图片的高度。
示例
本示例向 myDocument 添加由文件“Music.bmp”创建的图片。插入的图片链接到其源文件，并与 myDocument 一起保存。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
