Powerpoint在打开超链接后自己结束放映的方法.doc

、

用“动作设置”中的“运行宏”来实现。看这样的实现效果：

1、在同一文件夹下创建两个演示文稿 pp01.ppt、pp02.ppt。

2、在 pp01.ppt 中插入一个VBA模块，将以下代码粘贴进去：
VB code
Sub toPP02Slide2()
Dim thisPP As Presentation, destPP As Presentation
Set thisPP = ActivePresentation
Set destPP = Presentations.Open(FileName:="pp02.ppt")
thisPP.Close
Set thisPP = Nothing
destPP.SlideShowSettings.Run
destPP.SlideShowWindow.View.GotoSlide 2
Set destPP = Nothing
End Sub

3、在 pp02.ppt 中插入一个VBA模块，将以下代码粘贴进去：
VB code
Sub toPP01Slide3()
Dim thisPP As Presentation, destPP As Presentation
Set thisPP = ActivePresentation
Set destPP = Presentations.Open(FileName:="pp01.ppt")
thisPP.Close
Set thisPP = Nothing
destPP.SlideShowSettings.Run
destPP.SlideShowWindow.View.GotoSlide 3
Set destPP = Nothing
End Sub

4、将 pp01.ppt 中的第三张幻灯片标题的“动作设置”设置为“运行宏”-“toPP02Slide2”；
  将 pp02.ppt 中的第二张幻灯片标题的“动作设置”设置为“运行宏”-“toPP01Slide3”。

5、保存两个文稿，保持其中一个为打开，将另一个关闭。进行幻灯片放映，切换到对应的幻灯片并点击标题，PowerPoint将平滑地在两个演示文稿间进行跳转，就向点击Web页当中的超链接一样