KB0179: Problemi di scorrimento nel Riquadro delle note di PowerPoint 2013 e 2016

Riproduzione senza think-cell

Procedere nel seguente modo:

1. Aprire PowerPoint 2013 o 2016 con un nuovo file vuoto.
2. In PowerPoint, andare a Insert > think-cell > Tools > Deactivate think-cell.
3. Posizionare una forma PowerPoint sulla diapositiva: Home > Drawing > Oval.
4. Fare clic sul pulsante Notes della status bar di PowerPoint nella visualizzazione Normale per visualizzare il Notes pane - vedere "Click to add notes" sotto la diapositiva di PowerPoint.
5. Immettere diverse righe di testo nel Notes pane finché non viene visualizzata la scroll bar verticale.
6. Premere Alt + F11 per aprire Microsoft Visual Basic for Applications.
7. Aggiungere questo codice come un Class Module e chiamarlo 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. Aggiungere questo codice come Module:

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

9. Nella finestra della presentazione PowerPoint, premere Alt + F8 per aprire la finestra Macro.
10. Run la macro RunMe.
11. Si apre una finestra di messaggio. Seguire le istruzioni in essa contenute.