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

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

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

1. 新しい空のファイルでPowerPoint 2013または2016を開きます。
2. PowerPointでInsert > think-cell > Tools > Deactivate think-cellへ進みます。
3. PowerPointの図形をスライド上に配置します：[Home] > [Drawing] > [Oval]。
4. 標準表示のPowerPointのstatus barで [Notes] ボタンをクリックし、[Notes pane] を表示します。PowerPointのスライドの下にある「Click to add notes」を参照してください。
5. 垂直のscroll barが表示されるまで [Notes pane] に複数行のテキストを入力します。
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を押し、[Macro] ウィンドウを開きます。
10. RunMeマクロをRunします。
11. メッセージ ボックスが表示されます。その指示に従ってください。