知识库 KB0179

PowerPoint 2013 和 2016 注释窗格中的滚动问题

问题

若 PowerPoint 文件显示在常规视图中,可以单击 PowerPoint 状态栏中的注释按钮,在幻灯片下方的注释窗格中编辑演讲者注释。但是,在 PowerPoint 2013 或 2016 中,尝试使用鼠标滚轮在注释窗格中滚动时,始终会返回到文本游标所在的行。

此问题由 PowerPoint 2013 和 2016 中的 Bug 所致。我们已经向 Microsoft 报告。若贵公司有 Microsoft Office 支持合同,而且您希望联系 Microsoft 请求修复,可以参阅 Microsoft 案例编号 114072811653716。该错误在不使用 think-cell 的情况下也会重现。

在不使用 think-cell 的情况下重现

请执行以下步骤:

  1. 启动 PowerPoint 2013 或 2016 打开新的空文件。
  2. 在 PowerPoint 中,转到 Insertthink-cellTools 工具菜单图标. Deactivate think-cell
  3. 将 PowerPoint 形状放置在幻灯片上:主页绘图椭圆形
  4. 在“常规”视图中,单击 PowerPoint 状态栏上的注释按钮,以显示注释窗格,可以在 PowerPoint 幻灯片下方看到“单击以添加注释”。
  5. 注释窗格中输入多行文本,直到显示垂直滚动条为止。
  6. Alt + F11 打开 Microsoft Visual Basic for Applications
  7. 添加以下代码作为类模块,并将其命名为 cEventClass:
    Public WithEvents PPTEvent As Application
    Private Sub Class_Initialize()
      MsgBox "EventHandler is now active." & vbNewLine & _
        " - Click OK then click to place cursor at the end of the first line in the notes pane." & vbNewLine & _
        " - Scroll down in the notes pane with a mouse wheel until the line with the cursor is no longer visible." & vbNewLine & _
        " - Click on the PowerPoint Oval on the slide."
    End Sub
    
    Private Sub Class_Terminate()
      MsgBox "EventHandler is now inactive."
    End Sub
    
    Private Sub PPTEvent_WindowSelectionChange (ByVal Sel As Selection)
      ActivePresentation.CanCheckIn
    End Sub
    		
  8. 添加以下代码作为模块
    Dim cPPTObject As New cEventClass
    Sub RunMe()
      Set cPPTObject.PPTEvent = Application
    End Sub
    			
  9. 在 PowerPoint 演示文稿窗口中,按 Alt + F8 打开窗口
  10. 运行 RunMe 宏。
  11. 将显示消息框。遵循其指示执行。

解决方案

在 Microsoft 修复此 Bug 之前,可以使用以下解决方法:

  • 提高注释窗格的垂直大小,使滚动条消失。
  • 使用键盘的箭头键(而不是鼠标滚轮)进行滚动。
  • 改为使用 PowerPoint 的备注页视图:视图演示文稿视图备注页

分享