KB0179:PowerPoint 2013 和 2016 注释窗格中的滚动问题
问题
若 PowerPoint 文件显示在常规视图中,可以单击 PowerPoint 状态栏中的注释按钮,在幻灯片下方的注释窗格中编辑演讲者注释。但是,在 PowerPoint 2013 或 2016 中,尝试使用鼠标滚轮在注释窗格中滚动时,始终会返回到文本游标所在的行。
此问题由 PowerPoint 2013 和 2016 中的 Bug 所致。我们已经向 Microsoft 报告。若贵公司有 Microsoft Office 支持合同,而且您希望联系 Microsoft 请求修复,可以参阅 Microsoft 案例编号 114072811653716。该错误在不使用 think-cell 的情况下也会重现。 阅读更多
在不使用 think-cell 的情况下重现
请执行以下步骤:
- 启动 PowerPoint 2013 或 2016 打开新的空文件。
- 在 PowerPoint 中,进入 Insert > think-cell > Tools
> Deactivate think-cell。
- 将 PowerPoint 形状放置在幻灯片上:Home > Drawing > Oval。
- 在常规视图中,单击 PowerPointstatus bar 上的 Notes 按钮以显示 Notes pane——可以在 PowerPoint 幻灯片下方看到“Click to add notes”。
- 在 Notes pane 中输入多行文本,直到出现垂直 scroll bar。
- 按下 Alt + F11 以打开 Microsoft Visual Basic for Applications。
- 将此代码添加为 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 - 将此代码添加为 Module:
Dim cPPTObject As New cEventClass Sub RunMe() Set cPPTObject.PPTEvent = Application End Sub - 在 PowerPoint 演示文稿窗口中,按 Alt + F8 打开 Macro 窗口
- Run 该 RunMe 宏。
- 将显示消息框。遵循其指示执行。
解决方案
在 Microsoft 修复此 Bug 之前,可以使用以下解决方法:
- 增加 Notes pane 的垂直大小以使滚动条消失。
- 使用键盘的箭头键(而不是鼠标滚轮)进行滚动。
- 改为使用 PowerPoint 的 Notes Page 视图:View ' Presentation Views > Notes Page。