假设图片在D:\123\456\pic里，则
Pics = ActiveWorkbook.Path & "\pic\" & Cell.Value & ".jpg"
修改为
Pics = "D:\123\456\pic\" & Cell.Value & ".jpg"
