




هذا الكود كان ثاني تجربة لي فى برمجة الباوربوينت
و قد أعددته بناء علي طلب أحد الأخوة ، و فى البداية استغربت لطلبه فهناك عدة وسائل للتنقل بين الشرائح المختلفة ، فلماذا تريد التنقل بضغط رقم اللوحة ؟؟
و كانت الاجابة ، أنه يرغب فى إخفاء لوحة المفاتيح ووصلها بأزرار لعمل عرض
فيضغط المستخدم علي الزر الاحمر فيذهب للشريحة الاولي ... و هكذا
المهم بعد عدة محاولات ، تم اعداد الكود
و هو مناظر لاوفيس اكس بي
و الشرح داخل الملف
و الفكرة عبارة عن عمل add-in لأن تشغيل الاحداث تلقائيا عند تشغيل العرض فى الباوربوينت يتم عن طريق وضع الكود فى add-in
مرفق الملف مع شرح كيفية توصيف ال add-in و أصل الكود لل add-in
و قد أعددته بناء علي طلب أحد الأخوة ، و فى البداية استغربت لطلبه فهناك عدة وسائل للتنقل بين الشرائح المختلفة ، فلماذا تريد التنقل بضغط رقم اللوحة ؟؟
و كانت الاجابة ، أنه يرغب فى إخفاء لوحة المفاتيح ووصلها بأزرار لعمل عرض
فيضغط المستخدم علي الزر الاحمر فيذهب للشريحة الاولي ... و هكذا
المهم بعد عدة محاولات ، تم اعداد الكود
و هو مناظر لاوفيس اكس بي
و الشرح داخل الملف
و الفكرة عبارة عن عمل 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