PowerPoint 2013 および 2016 の[ノート ペイン]でのスクロールの問題

think-cellを使用しないで再現

以下の手順を行ってください。

1. 新しい空のファイルでPowerPoint 2013または2016を開きます。
2. PowerPointでInsert > think-cell > Tools > Deactivate think-cellへ進みます。
3. PowerPointの図形をスライド上に配置します：[ホーム] → [描画] → [楕円]
4. 標準表示のPowerPointのステータス バーで [ノート] ボタンをクリックし、[ノート]ペインを表示します。PowerPointのスライドの下にある [クリックしてノートを入力]を参照してください。
5. 垂直のスクロール バーが表示されるまで[ノート]ペインに複数行のテキストを入力します。
6. [Alt] + [F11]を押して、[Microsoft Visual Basic for Applications]を開きます。
7. 以下のコードを[Class Module]として追加し、「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. 以下のコードを[Module]として追加します。

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

9. PowerPointプレゼンテーション ウィンドウで[Alt] + [F8]を押し、[マクロ] ウィンドウを開きます。
10. [RunMe]マクロを[実行]します。
11. メッセージ ボックスが表示されます。その指示に従ってください。