أكواد أعجبتنى

[قنديل الصياد]

كود للترحيب

Private Sub CommandButton1_Click()
 MsgBox "قنديل الصياد يرحب بكم فى منتديات أوفيسنا وكل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعلى الامة الاسلامية بالخير واليمن والبركات"
End Sub

كود الانتقال  للصفحة التالية

Private Sub CommandButton2_Click()
ActivePresentation.SlideShowWindow.View.Next
End Sub

كود الانتقال للصفحة السابقة

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Previous
End Sub

[MAHMOUD ALI YOUSSEF]

جزاك الله كل خير    :fff:  

[قنديل الصياد]

مرفق ملف به تطبيقات الاكواد

 

قنديل الصياد.rar

 

 

 

 

[قنديل الصياد]

 

بارك الله فيك وعليك اخى العزيز وكل عام وحضرتك بخير

[مجدى يونس]

الاخ قنديل الصياد

اهلا بك فى قسم البوربوينت

وفى انتظار المزيد ان شاء الله

 

احدث مواضيعى على البوربوينت

http://www.officena.net/ib/index.php?showtopic=48260

 

[قنديل الصياد]

شكرا استاذنا الكبير

الاستاذ / مجدى يونس

وشرف كبير ان اعمل بجانبك

[قنديل الصياد]

كود لاغلاق برنامج الباور بوينت

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Exit
End Sub

مرفق ملف به التطبيق

 

خروج.rar

 

 

[حمادة عمر]

[وليد فتحي]

بارك الله فيك وجزاك كل خير