vba - Powerpoint VBA msoCallout 链接更新

Question

伙计们——

我正在寻找一种方法来处理和操作 powerpoint 中的“图片”链接。这些链接不同于链接另一个 Microsoft (MS) 对象时创建的对象类型。这些是图表、Excel 中的单元格区域或 Word 中的文本区域。选择一个 MS 对象会产生：

Application.ActiveWindow.Selection.Type = msoLinkedOLEObject 'true

但是，当插入图片时——这是我所关心的——（插入>图片>插入和链接）会产生：

Application.ActiveWindow.Selection.Type = msoCallout 'true

跑步：

ActivePresentation.UpdateLinks or Object.LinkFormat.Update

适用于 OLE 对象，但不适用于这些“其他”类型的链接。

我需要能够 1）识别这些对象（msoCallout 也用于其他非链接对象，所以这没有帮助）2）更新链接和 3）修改链接路径

score 1 · Accepted Answer

你在那里得到了误导性的信息。你想看看：

ActiveWindow.Selection.ShapeRange(1).Type

反而。你会发现它是 11，msoLinkedPicture

这为您提供了链接图片的路径：

With ActiveWindow.Selection.ShapeRange(1)
    Debug.Print .LinkFormat.SourceFullName
End With

1 回答 1