Powerpoint VBA：链接的Excel图表的开源

Question

我有一个PowerPoint演示文稿，其中粘贴了几个Excel图表作为链接。 我已经使用VBA进行了检查，这些形状的类型是msoLinkedOLEObject 。

知道这一点后，我想首先通过VBA打开包含原始图表的Excel文件，然后使用图表的“更新链接”命令，如下所示：

我希望首先打开工作簿，因为对我来说，将“更新链接”命令与打开的Excel文件一起使用通常比直接使用“更新链接”命令要快（可能是因为某些PowerPoint演示文稿和某些工作簿确实很扩展）。

对于代码的sld.Shapes(i).LinkFormat部分，我可以使用.UpdateLinks直接刷新数据，但是找不到任何直接打开Excel源文件的方法（通过手动单击该方法的相同方法链接的图表）。

可以实现吗？

Sub UpdateExcelLinkedCharts()
Dim pres As Presentation
Dim sld As Slide
Dim shp As Shape

Set pres = Application.ActivePresentation

'Loop through all active slides in the presentation
For Each sld In pres.Slides
If sld.SlideShowTransition.Hidden = msoFalse Then

'If the slide is a msoLinkedOLEObject, proceed to update its link
For i = 1 To sld.Shapes.Count

If sld.Shapes(i).Type = 10 Then
sld.Shapes(i).LinkFormat.UpdateLinks

End If

Next i

End If

Next sld


MsgBox ("All Links Updated!")
End Sub

Answer 1

您可以使用

sld.Shapes(i).OLEFormat.Activate

要么

sld.Shapes(i).OLEFormat.DoVerb

其次是sld.Shapes(i).LinkFormat.Update

两者都将打开链接的对象，以便您可以对其进行编辑。 但是请注意，这不足以引用可通过VBA进行操作的Excel对象。