使用VBA将图像导入Excel，然后更改文件位置，图像不再显示。

Question

我正在Excel中工作，并编写了一个宏来查找文件位置并将图像添加到指定的单元格中。如果没有图像，则在单元格中插入“ X”。有数百张图片，因此我尝试避免手动执行此操作。以下是第一部分的代码。

Sub Insert()

Dim myPict As Picture
Dim PictureLoc As String

ActiveSheet.Pictures.Delete

For i = 4 To 4

If Cells(i, 3).Value <> "X" Then


PictureLoc = "C:\Users\gboyle\Desktop\Images\" & Cells(i, 2).Value & ".png"

With Cells(i, 3)
Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
.RowHeight = myPict.Height
myPict.Top = .Top
myPict.Left = .Left
myPict.Placement = xlMoveAndSize

End With

Else
End If

代码很好用，正是我所需要的，但是当我将此文件发送给其他人时，他们看不到图像。这是一些人需要查看的文件。我将附上该问题的屏幕截图。有人知道解决此问题的方法吗？谢谢