如果不采用超级链接的方式,如何在PowerPoint幻灯片演示文稿之间相互切换

1.如果不采用超级链接的方式,如何在ppt演示文稿之间相互切换

我大致上想到一个解决方案了，不过需要再做进一步测试…… 此外，请问楼主的PPT是什么版本的？2003还是2007？还有就是，你到时候是直接在自己的电脑上演示还是需要把PPT文件复制到别人电脑上演示？ _____ 补充： 抱歉步骤有点儿复杂，如有问题可补充提问或直接给我发信息。

一、准备工作： 1、新建一个PPT文件； 2、Alt+F11打开VBA编辑窗口； 3、“插入-模块”，在编辑区里粘贴如下代码： Option Explicit ' Public variables Public oSlideShowControler As New Sub 开始演示（） On Error Resume Next oSlideShowControler.Start End Sub 4、“插入-类模块”，在编辑区里粘贴如下代码： Option Explicit ' Public constant values Const strPresentationName1 = "d:\temp\docs\Presentation_1.pptx" ' 这里输入你演示的第一个PPT文件的完整路径 Const strPresentationName2 = "d:\temp\docs\Presentation_2.pptx" ' 这里输入你演示的第二个PPTT文件的完整路径 ' Public variables Public oPresentation1 As Presentation Public oPresentation2 As Presentation Public WithEvents appEvent As Application ' Private constant values Private Const nIndexSwitchFrom1To2 = 4 ' 这里指定当显示到第一个PPT的第几页的时候去切换到第二个PPT Private Const nStartIndexIn2 = 3 ' 这里指定需要跳转到第二个PPT中的第几页 Private Const nIndexSwitchFrom2To1 = 5 ' 这里指定当显示到第二个PPT的第几页的时候切换回第一个PPT ' Private variables Private fSwitching As Boolean Public Sub Start() Set appEvent = Application Set oPresentation1 = Presentations.Open(strPresentationName1) Set oPresentation2 = Presentations.Open(strPresentationName2) oPresentation1.SlideShowSettings.Run End Sub ' SlideShowNextSlide Event Private Sub appEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow) Dim oSlideShowView As SlideShowView If fSwitching Then Exit Sub If Wn.Presentation.FullName = oPresentation1.FullName Then If Wn.View.Slide.SlideIndex = nIndexSwitchFrom1To2 Then fSwitching = True Wn.View.Exit Set oSlideShowView = oPresentation2.SlideShowSettings.Run.View oSlideShowView.GotoSlide nStartIndexIn2 fSwitching = False Set oSlideShowView = Nothing End If ElseIf Wn.Presentation.FullName = oPresentation2.FullName Then If Wn.View.Slide.SlideIndex = nIndexSwitchFrom2To1 Then fSwitching = True Wn.View.Exit Set oSlideShowView = oPresentation1.SlideShowSettings.Run.View oSlideShowView.GotoSlide nIndexSwitchFrom1To2 + 1 fSwitching = False Set oSlideShowView = Nothing End If End If End Sub ' SlideShowEnd Event Private Sub appEvent_SlideShowEnd(ByVal Pres As Presentation) If Not fSwitching Then oPresentation1.Close oPresentation2.Close Set appEvent = Nothing End If End Sub 5、根据你的实际情况，修改上面代码中的文件名和三个幻灯片索引号； 6、保存这个幻灯片，随便取个名字，比如叫做“演示控制.ppt”。 二、演示： 1、启动PPT，打开上面保存的“演示控制.ppt”，如果提示宏警告之类的话，确定执行宏； 2、键入Alt+F8打开宏窗口，选择列表中的“开始演示”，回车； 3、如果没有意外的话，你需要演示的第一个PPT会自动打开并进入演示模式； 4、当演示到需要切换的幻灯片时，第二个PPT会自动打开播放并跳转到指定的幻灯片； 5、当第二个PPT浏览完指定的幻灯片后，又会自动回到第一个PPT原位置的下一张幻灯片接着播放。

6、演示完毕后，两个PPT会自动关闭，还是仅保留这个“演示控制.ppt”。 大致就是这样，如果你遇到任何问题请尽快和我联系，我帮你再调整。