如何利用vba把一个文件目录下的数字图片插入到Excel的某一个单元格里面？ 数字图片，比如图片

照片和文件的相对路径不能变，也就是说照片这个文件夹要和文件在一起。
点提取图片后，如果图片已经存在，则将图片移动到照片单元格。好像也没必要。。。
主要是最长那句代码。

Sub 提取照片()
Dim Rng As Range, S As String
On Error Resume Next
S = Trim(Range("E3")) '档案号单元格
Set Rng = Range("J4") '照片单元格
Path = ThisWorkbook.Path & "\照片\" '图片路径

With ActiveSheet.Shapes(S) '移动到指定位置
.Left = Rng.Left + 10
.Top = Rng.Top + 5
End With

If Err Then '如果出错 说明没有添加图片，执行添加
ActiveSheet.Shapes.AddPicture(Path & S & ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = S
Err.Clear
End If
End Sub