是否可以仅更新PPT中选定的链接对象？

Question

我正在尝试构建一个宏，该宏将仅更新PowerPoint中的选定链接对象，但我不知道该怎么做。

下面的第一部分是我用来更新所有链接对象的内容，但是我目前正在处理海量的Excel文件以及包含200多个链接对象的演示文稿，因此一次更新是唯一的方法不幸的是去。

第二部分是我希望的工作。

第一部分：

Dim sld As Slide
Dim sh As Shape

For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            sh.LinkFormat.Update
        End If
    Next
Next

第二部分：

With ActiveWindow.Selection
    .LinkFormat.Update
EndWith

我对PPT VBA缺乏经验，所以请多多包涵。有可能建立这样的东西吗？ （它将成为一个更复杂的宏的一部分，因此最终它将比仅单击右键+更新链接更加方便）

Answer 1

尝试一下：

Sub UpdateOLELink()
  ActiveWindow.Selection.ShapeRange.LinkFormat.Update
End Sub