根据单元格值插入图片

Question

我试图根据Sheet17.Range（“ G2”）中的单元格值更新适合一组单元格Sheet17.Range（“ A2：E3”）的图片。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2")) Is Nothing Then Exit Sub
Dim myPict As Shape
With Range("A2:E3")
Set myPict= Range("A2:E2").Parent.Pictures.Insert("\\NPDATASERV1\Factory\Production\5.Records\Product_Pictures\" & Range("G2").Value & ".jpg")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub 

我可以在另一个测试文件中使用它，它可以完美地从网络文件夹中提取图片。对于我来说，为什么它在一个工作簿中起作用而在另一个工作簿中无效却没有意义。这段代码有什么问题吗？或者有更好的方法来解决这个问题。

有关此文件的更多详细信息。构建该文件是为了为特定工单创建信息包。用户正在使用用户窗体输入指令号，该指令号将更改列出的项目代码。然后，项目代码将在Sheet17.Range（“ G2”）中指定值。 Sheet17.Range（“ G2”）是一个Index（x，Match（y，z，0））函数。

谢谢！