KB0179: Probleme mit dem Bildlauf im Notizenfeld von PowerPoint 2013 und 2016

Reproduktion ohne think-cell

Führen Sie die folgenden Schritte aus:

1. Öffnen Sie PowerPoint 2013 oder 2016 mit einer neuen, leeren Datei.
2. In PowerPoint gehen Sie zu Insert > think-cell > Tools > Deactivate think-cell.
3. Platzieren Sie eine PowerPoint-Form auf der Folie: Home > Drawing > Oval.
4. Klicken Sie in der Normalansicht in der PowerPoint-status bar auf die Schaltfläche Notes, um das Notes pane anzuzeigen – siehe "Click to add notes" unter der PowerPoint-Folie.
5. Geben Sie einige Zeilen Text im Notes pane ein, bis die vertikale scroll bar erscheint.
6. Drücken Sie Alt + F11, um Microsoft Visual Basic for Applications zu öffnen.
7. Fügen Sie diesen Code als Class Module hinzu, und geben Sie ihm den Namen 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. Fügen Sie diesen Code als Module hinzu:

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

9. Drücken Sie im Präsentationsfenster von PowerPoint auf Alt + F8, um das Macro-Fenster zu öffnen.
10. Run Sie das RunMe-Makro.
11. Anschließend wird ein Meldungsfeld angezeigt. Befolgen Sie die darin angegebenen Anweisungen.