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

我有一张有很多图片的工作表，但是这些图片是链接，我需要将文件发送到我们公司之外，发送给无法访问链接位置的人

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

以下代码在.strong>

粘贴专用

行失败

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

---

您是否尝试录制宏以查看手动执行时生成的代码？只是好奇，这些链接是超链接吗？通过图片循环并删除超链接会更好吗？这是使用宏记录器删除一张图片的超链接…

ActiveSheet.Shapes.Range（数组（“图片1”））。选择：Selection.ShapeRange.Item（1）。hyperlink.delete

您只需使用此方法在图片之间循环即可。如果这是你所指的链接。