KB0179: Scrollprobleme im Notizenbereich von PowerPoint 2013 und 2016

Reproduktion ohne thinkcell

Führen Sie bitte die folgenden Schritte aus:

1. Öffnen Sie PowerPoint 2013 oder 2016 mit einer neuen leeren Datei.
2. Wechseln Sie in PowerPoint zu Insert > thinkcell > Tools > Deactivate thinkcell.
3. Platzieren Sie eine PowerPoint-Form auf der Folie: Home > Drawing > Oval.
4. Klicken Sie in der Normalansicht auf die Schaltfläche Notes in der PowerPoint-status bar, um den Notes pane anzuzeigen – siehe „Click to add notes“ unterhalb der PowerPoint-Folie.
5. Geben Sie mehrere Textzeilen in den Notes pane ein, bis die vertikale scroll bar angezeigt wird.
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 nennen Sie es 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 PowerPoint-Präsentationsfenster Alt + F8, um das Fenster Macro zu öffnen
10. Run Sie das Makro RunMe.
11. Ein Meldungsfeld wird angezeigt. Befolgen Sie die Anweisungen darin.