KB0179: PowerPoint 2013 & 2016 のノート ペインでのスクロールの問題

thinkcell を使用しない再現手順

次の手順を実行してください。

1. PowerPoint 2013 または 2016 を新しい空のファイルで開きます。
2. PowerPoint で、Insert > thinkcell > Tools > Deactivate thinkcell に移動します。
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. メッセージ ボックスが表示されます。その指示に従ってください。