我在我的powerpoint演示文稿(2007)中运行了一个宏来更新所有链接的Excel数据。如果我手动运行它,宏工作正常,但我试图将它设置为每次演示文稿返回到第一张幻灯片时自动运行。
我在这里查看了几个类似的问题之后将以下代码放在一起,但它似乎没有用。当我点击幻灯片1时没有任何反应。
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = 1 Then
Dim osld As Slide
Dim oshp As Shape
On Error Resume Next
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
oshp.LinkFormat.update
Next oshp
Next osld
End If
End Sub
有人有什么想法吗?
答案 0 :(得分:0)
您的代码似乎正确且应该有效,但PowerPoint有时无法正确实现OnSlideShowPageChange。
向幻灯片添加ActiveX控件(甚至是幻灯片)通常可以解决问题。