在Powerpoint幻燈片放映中更新鏈接的Excel幻燈片

Question

我有一個Powerpoint演示文稿，需要不斷循環才能不斷顯示信息。 我希望每次顯示幻燈片時，一張幻燈片中的鏈接Excel工作表對象刷新其數據，在循環演示文稿中顯示更新的數據。

我該怎么做呢？

Answer 1

進行更新的代碼只有一行：

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

您可以通過索引號或名稱來引用Slides和Shapes 。 上面的示例更新了第二個Slide對象Slide一個Shape對象的鏈接。 您需要按照以下步驟操作，以便在適當的時間激活該代碼。

從Microsoft Office文檔：

如何：將事件與應用程序對象一起使用

要為Application對象的事件創建事件處理程序，您需要完成以下三個步驟：

1. 在類模塊中聲明一個對象變量以響應事件。
2. 編寫具體的事件程序。
3. 從另一個模塊初始化聲明的對象。

聲明對象變量

在為Application對象的事件編寫過程之前，必須創建一個新的類模塊並聲明一個Application類型的對象。 例如，假設創建了一個新的類模塊並調用了EventClassModule。 新類模塊包含以下代碼。

VBA

 Public WithEvents App As Application 

寫下事件程序

使用事件聲明新對象后，它將出現在類模塊的“對象”列表中，您可以為新對象編寫事件過程。 （在“對象”列表中選擇新對象時，該對象的有效事件將列在“過程”列表中。）從“過程”列表中選擇一個事件。 將一個空過程添加到類模塊中。

VBA

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

初始化聲明的對象

在運行該過程之前，必須將類模塊（在此示例中為App）中的聲明對象與Application對象相連接。 您可以使用任何模塊中的以下代碼執行此操作。

VBA

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

運行InitializeApp過程。 運行該過程后，類模塊中的App對象指向Microsoft Office PowerPoint Application對象，並且類模塊中的事件過程將在事件發生時運行。