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 中,进入 Insert > think-cell > Tools Tools Menu icon > Deactivate think-cell
  3. 将 PowerPoint 形状放置在幻灯片上:Home > Drawing > Oval
  4. 在常规视图中,单击 PowerPointstatus bar 上的 Notes 按钮以显示 Notes pane——可以在 PowerPoint 幻灯片下方看到“Click to add notes”。
  5. Notes pane 中输入多行文本,直到出现垂直 scroll bar
  6. 按下 Alt + F11 以打开 Microsoft Visual Basic for Applications
  7. 将此代码添加为 Class Module 并将其命名为 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. 将此代码添加为 Module
    Dim cPPTObject As New cEventClass
    Sub RunMe()
      Set cPPTObject.PPTEvent = Application
    End Sub
    			
  9. 在 PowerPoint 演示文稿窗口中,按 Alt + F8 打开 Macro 窗口
  10. RunRunMe 宏。
  11. 将显示消息框。遵循其指示执行。

解决方案

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

  • 增加 Notes pane 的垂直大小以使滚动条消失。
  • 使用键盘的箭头键(而不是鼠标滚轮)进行滚动。
  • 改为使用 PowerPoint 的 Notes Page 视图:View ' Presentation Views > Notes Page