将图片粘贴为非链接并保留其位置

Question

我有一张包含许多图片的工作表，但图片是链接，我需要将文件发送到我们公司以外的人，以便无法访问链接位置的人。

我正在尝试编写代码以将图像粘贴为非链接，并将其当前位置保留在Excel工作表中。

以下代码在。 PasteSpecial 行上失败。

Sub test()
Dim Pic As Shape,Lt As Double, Tp As Double
For Each Pic In ActiveSheet.Shapes

   Lt = Pic.Left
   Tp = Pic.Top
   Pic.Cut

   ActiveSheet.PasteSpecial Format:="Picture (JPEG)", Link:=False, _
        DisplayAsIcon:=False

        Selection.Top = Tp
        Selection.Left = Lt

    Selection.Placement = xlMoveAndSize

Next Pic
End Sub