KB0179: Problemas de desplazamiento en el Panel de notas de PowerPoint 2013 y 2016

Reproducción sin think-cell

Realice los pasos siguientes:

1. Abra PowerPoint 2013 o 2016 con un nuevo archivo vacío.
2. En PowerPoint, vaya a Insert > think-cell > Tools > Deactivate think-cell.
3. Coloque una forma de PowerPoint en la diapositiva: Home > Drawing > Oval.
4. Haga clic en el botón Notesde la status bar de PowerPoint en la vista Normal para ver el Notes pane. Vea "Click to add notes" bajo la diapositiva de PowerPoint.
5. Introduzca varias líneas de texto en el Notes pane hasta que aparezca la scroll bar vertical.
6. Pulse Alt + F11 para abrir Microsoft Visual Basic for Applications.
7. Añada este código como Class Module y póngale de nombre 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. Añada este código como un Module:

   Dim cPPTObject As New cEventClass
   Sub RunMe()
     Set cPPTObject.PPTEvent = Application
   End Sub
   			

9. En la ventana de presentaciones de PowerPoint, pulse Alt + F8 para abrir la ventana Macro.
10. Run la macro RunMe.
11. Aparece un cuadro de mensaje. Siga las instrucciones.