مشكلات التمرير في جزء الملاحظات ببرنامج 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. قم بإضافة هذه التعليمات البرمجية بمثابة وحدة نمطية للفئة وتسميتها 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. قم بإضافة هذه التعليمات البرمجية بمثابة وحدة نمطية:

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

9. في نافذة العرض التقديمي في PowerPoint، اضغط على المفتاحين Alt+F8 لفتح النافذة وحدات ماكرو
10. قم بإجراء تشغيل لوحدة الماكرو RunMe.
11. يظهر مربع رسالة. اتبع الإرشادات الواردة في المربع.