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

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

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

1. 新しい空のファイルでPowerPoint 2013または2016を開きます。
2. PowerPoint で、[挿入] → [think-cell] → [Tool] (ツール) → [Deactivate think-cell] (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. メッセージ ボックスが表示されます。その指示に従ってください。