Question

我有一个Powerpoint演示文稿，需要不断循环才能不断显示信息。我希望每次显示幻灯片时，一张幻灯片中的链接Excel工作表对象刷新其数据，在循环演示文稿中显示更新的数据。

我将如何做到这一点？

Answer 1

进行更新的代码只有一行：

ActivePresentation.Slides(2).Shapes(1).LinkFormat.Update

您可以按索引号或名称引用Slides和Shapes。上面的示例更新了第二个Shape对象上第一个Slide对象的链接。您需要按照以下步骤操作，以便在适当的时间激活该代码。

从Microsoft Office文档：

如何：将事件与应用程序对象一起使用

要为Application对象的事件创建事件处理程序，您就可以了   需要完成以下三个步骤：


在类模块中声明一个对象变量以响应事件。

编写特定的事件程序。

从另一个模块初始化声明的对象。

声明对象变量

在编写应用程序事件的过程之前   对象，您必须创建一个新的类模块并声明一个对象   输入事件的应用程序。例如，假设一个新类   创建模块并调用EventClassModule。新的类模块   包含以下代码。

VBA

 Public WithEvents App As Application

撰写活动程序

使用事件声明新对象后，它将出现在Object中   在类模块中列出，并且可以为其编写事件过程   新对象。（当您在对象列表中选择新对象时，   过程列表中列出了该对象的有效事件。）选择   程序清单中的事件;一个空的过程被添加到   课程模块。

VBA

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    ActivePresentation.Slides(2).Shapes(1).LinkFormat.Update
End Sub

初始化声明的对象

在程序运行之前，必须连接声明的对象   带有Application对象的类模块（本例中的App）。   您可以使用任何模块中的以下代码执行此操作。

VBA

Dim X As New EventClassModule 
Sub InitializeApp()
   Set X.App = Application 
End Sub

运行InitializeApp过程。程序运行后，App 类模块中的对象指向Microsoft Office PowerPoint 应用程序对象，以及类模块中的事件过程在事件发生时运行。

在Powerpoint幻灯片放映中更新链接的Excel幻灯片

1 个答案: