التحكم فى شرائح العرض بلوحة المفاتيح

[محمد طاهر عرفه]

هذا الكود كان ثاني تجربة لي فى برمجة الباوربوينت

و قد أعددته بناء علي طلب أحد الأخوة ، و فى البداية استغربت لطلبه فهناك عدة وسائل للتنقل بين الشرائح المختلفة ، فلماذا تريد التنقل بضغط رقم اللوحة ؟؟

و كانت الاجابة ، أنه يرغب فى إخفاء لوحة المفاتيح ووصلها بأزرار لعمل عرض

فيضغط المستخدم علي الزر الاحمر فيذهب للشريحة الاولي ... و هكذا

المهم بعد عدة محاولات ، تم اعداد الكود

و هو مناظر لاوفيس اكس بي

و الشرح داخل الملف

و الفكرة عبارة عن عمل add-in لأن تشغيل الاحداث تلقائيا عند تشغيل العرض فى الباوربوينت يتم عن طريق وضع الكود فى add-in

مرفق الملف مع شرح كيفية توصيف ال add-in و أصل الكود لل add-in

Dim X As New EventClassModule

Sub Auto_Open()

  Call InitializeApp

  MsgBox "welcome to slide show by Keyboard numbers" & Chr(13) & Chr(13) & "By : Mohamed Taher Arafa "

  

End Sub



Public Sub InitializeApp()

    Set X.App = Application

End Sub


Public Sub activatef1()

        ActiveWindow.Selection.SlideRange.Shapes("Frame1").Select

End Sub



Public Sub moveit(KeyCode)

  Select Case KeyCode


Case 49

MsgBox "You Pressed on 1 and you shall go to slide no 1"

   With SlideShowWindows(1).View

    .GotoSlide 1

    End With

Case 50

MsgBox "You Pressed on 2 and you shall go to slide no 2"

   With SlideShowWindows(1).View

    .GotoSlide 2

    End With


Case 51

MsgBox "You Pressed on 3 and you shall go to slide no 3"

   With SlideShowWindows(1).View

    .GotoSlide 3

    End With


Case 52

MsgBox "You Pressed on 4 and you shall go to slide no 4"

   With SlideShowWindows(1).View

    .GotoSlide 4

    End With


Case 97

MsgBox "You Pressed on 1 and you shall go to slide no 1"

   With SlideShowWindows(1).View

    .GotoSlide 1

    End With

Case 98

MsgBox "You Pressed on 2 and you shall go to slide no 2"

   With SlideShowWindows(1).View

    .GotoSlide 2

    End With


Case 99

MsgBox "You Pressed on 3 and you shall go to slide no 3"

   With SlideShowWindows(1).View

    .GotoSlide 3

    End With


Case 100

MsgBox "You Pressed on 4 and you shall go to slide no 4"

   With SlideShowWindows(1).View

    .GotoSlide 4

    End With

    

Case 27

MsgBox "You Pressed Esc, Good bye !!"

   With SlideShowWindows(1).View

    .Exit

    End With

    

    

    Case Else

    MsgBox " Sorry this example is prepared for only 4 slides," & Chr(10) & Chr(13) & _

    "Choose a number from 1 to 4 please" & Chr(13) & Chr(13) & "Best Regards from : Mohamed Taher"


End Select

End Sub


Public Sub openit()

 UserForm1.Show

 UserForm1.Left = 0

 UserForm1.Top = 50

End Sub


Public Sub starting()

 Call InitializeApp

End Sub

keyboardPresentation2.rar