我在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
有人有主意吗?
您的代码似乎正确并且可以正常工作,但是PowerPoint有时不能正确实现OnSlideShowPageChange。
将ActiveX控件添加到幻灯片(甚至是非幻灯片)通常可以解决该问题。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句