Powerpoint VBA msoCallout链接更新

Question

乡亲-

我正在寻找一种方法来解决和操纵幻灯片中的"图片"链接。这些链接不同于链接另一个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)修改链接路径

Answer 1

你得到了误导性的信息。你想看:

ActiveWindow.Selection.ShapeRange(1).Type 

。你会发现它是11 msoLinkedPicture

这给了你链接图片的路径:

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