知识库 KB0179
  2. 资源
  3. 知识库
  4. 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 工具菜单图标. > 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 的备注页视图：视图 → 演示文稿视图 → 备注页。

分享