用代码向指定EXCEL2010插入图片的问题？有什么解决办法？

用这个过程向EXCEL单元格插入图片后为什么存在链接呢？图片所在的文件夹删除或者图片路径改变了就无法在EXCEL中正常显示图片？有什么办法弄成“插入图片”这种永久型的？
Sub Pict(x, y, z As String)
  With Sheets("SHEET1").Pictures.Insert(Pict_Selt & z)
    .ShapeRange.LockAspectRatio = msoFalse
    .Placement = xlMoveAndSize
    .ShapeRange.Left = Range(x).Left
    .ShapeRange.Top = Range(x).Top
    .ShapeRange.Height = Range(x & ":" & y).Height
    .ShapeRange.Width = Range(x & ":" & y).Width
  End With