如何同时演示两个PowerPoint演示文稿并实现同步翻页

实现逻辑 #

通过监听演示文稿的动画推进和幻灯片切换事件，在其中一份文稿触发操作时同步执行另一份文稿的对应操作；同时自动将两份文稿窗口分配到双显示器并启动全屏放映。

操作步骤与代码实现 #

1. 打开VBA编辑器 #

打开任意PowerPoint文件，按下Alt + F11进入VBA编辑器。

2. 创建类模块（事件监听） #

右键左侧工程窗口 → 插入 → 类模块，将类模块名称改为clsPresentationEvents（在右侧属性窗口修改(名称)项），粘贴以下代码：

Option Explicit

Public WithEvents PPT As Presentation
Public SyncPPT As Presentation

' 监听动画/内容推进事件
Private Sub PPT_SlideShowNextBuild(ByVal Wn As SlideShowWindow)
    If Not SyncPPT Is Nothing Then
        SyncPPT.SlideShowWindow.View.Next
    End If
End Sub

' 监听幻灯片切换事件
Private Sub PPT_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    If Not SyncPPT Is Nothing Then
        SyncPPT.SlideShowWindow.View.GotoSlide Wn.View.Slide.SlideIndex
    End If
End Sub

3. 创建标准模块（核心执行代码） #

右键左侧工程窗口 → 插入 → 模块，粘贴以下代码：

Option Explicit

Dim pptEng As clsPresentationEvents
Dim pptSpa As clsPresentationEvents

Sub SyncDualPresentations()
    Dim fd As FileDialog
    Dim filePath1 As String, filePath2 As String
    Dim screen1Left As Long, screen1Top As Long, screen1Width As Long, screen1Height As Long
    Dim screen2Left As Long, screen2Top As Long, screen2Width As Long, screen2Height As Long
    
    ' 选择两份目标演示文稿
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = True
        .Filters.Add "PowerPoint 文件", "*.pptx;*.ppt"
        .Title = "选择英文和西班牙文演示文稿"
        If .Show <> -1 Then Exit Sub
        If .SelectedItems.Count <> 2 Then
            MsgBox "请选择恰好两份演示文稿！", vbExclamation
            Exit Sub
        End If
        filePath1 = .SelectedItems(1)
        filePath2 = .SelectedItems(2)
    End Set
    
    ' 获取双屏幕参数（默认副屏在主屏右侧，可根据实际布局调整）
    screen1Left = Application.Left
    screen1Top = Application.Top
    screen1Width = Application.Width
    screen1Height = Application.Height
    
    screen2Left = screen1Left + screen1Width
    screen2Top = screen1Top
    screen2Width = Application.Monitors(2).Width
    screen2Height = Application.Monitors(2).Height
    
    ' 打开两份演示文稿（只读模式避免修改冲突）
    Dim ppt1 As Presentation, ppt2 As Presentation
    Set ppt1 = Presentations.Open(filePath1, ReadOnly:=True)
    Set ppt2 = Presentations.Open(filePath2, ReadOnly:=True)
    
    ' 分配窗口到对应屏幕
    ppt1.Window.Left = screen1Left
    ppt1.Window.Top = screen1Top
    ppt1.Window.Width = screen1Width
    ppt1.Window.Height = screen1Height
    
    ppt2.Window.Left = screen2Left
    ppt2.Window.Top = screen2Top
    ppt2.Window.Width = screen2Width
    ppt2.Window.Height = screen2Height
    
    ' 启动全屏放映
    ppt1.SlideShowSettings.Run
    ppt2.SlideShowSettings.Run
    
    ' 绑定事件监听，实现双向同步
    Set pptEng = New clsPresentationEvents
    Set pptEng.PPT = ppt1
    Set pptEng.SyncPPT = ppt2
    
    Set pptSpa = New clsPresentationEvents
    Set pptSpa.PPT = ppt2
    Set pptSpa.SyncPPT = ppt1
End Sub

' 停止同步并释放资源
Sub StopSync()
    Set pptEng = Nothing
    Set pptSpa = Nothing
    ' 如需自动关闭演示文稿，取消以下两行注释
    ' If Presentations.Count >= 1 Then Presentations(1).Save: Presentations(1).Close
    ' If Presentations.Count >= 1 Then Presentations(1).Save: Presentations(1).Close
End Sub

使用方法 #

1. 回到PowerPoint主界面，按下Alt + F8，选择SyncDualPresentations宏并执行。
2. 在文件选择框中选中你的英文和西班牙文演示文稿，点击确定。
3. 程序会自动将两份文稿分别打开在双屏幕并启动全屏放映，此时操作任意一份的动画推进（回车/点击）或幻灯片切换，另一份会自动同步。

关键注意事项 #

• 两份演示文稿的幻灯片数量、动画顺序、页面结构必须完全一致，否则同步会出现错位。
• 如果你的副屏布局不在主屏右侧，需要修改标准模块中screen2Left的计算逻辑：比如副屏在左侧时，改为screen1Left - screen2Width。
• 若需停止同步，执行StopSync宏即可，如需自动关闭文稿，可取消对应注释。

内容的提问来源于stack exchange，提问作者JBoltz