KB0179: problemi di scorrimento nel riquadro delle note di PowerPoint 2013 e 2016

Riproduzione senza thinkcell

Eseguire i passaggi seguenti:

1. Aprire PowerPoint 2013 o 2016 con un nuovo file vuoto.
2. In PowerPoint, passare a Insert > thinkcell > Tools > Deactivate thinkcell.
3. Posizionare una forma PowerPoint sulla diapositiva: Home > Drawing > Oval.
4. Fare clic sul pulsante Notes nella status bar di PowerPoint in visualizzazione Normale per visualizzare il Notes pane - vedere "Click to add notes" sotto la diapositiva PowerPoint.
5. Inserire 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 Class Module e denominarlo 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 di PowerPoint, premere Alt + F8 per aprire la finestra Macro
10. Run la macro RunMe.
11. Viene visualizzata una finestra di messaggio. Seguirne le istruzioni.