تشغيل ملف بوربوينت عبر فيجول بيسك

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default تشغيل ملف بوربوينت عبر فيجول بيسك

مُساهمة من طرف Admin في الأحد أكتوبر 22, 2006 2:25 am

' أولا قم بعمل رفرنس للكائن
'microsoft PowerPoint xx
'وذلك من قائمة project>refrans
' اي رقم الإصدار xx ونقصد ب
Private Sub Command1_Click()
'الكود التالي لتعريف كائن بوربوينت جديد
Dim PwrPnt As PowerPoint.Application
Set PwrPnt = New PowerPoint.Application
PwrPnt.Activate
PwrPnt.Presentations.Open (App.Path & "test.pps")
End Sub

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تشغيل ملف بوربوينت عبر فيجول بيسك

مُساهمة من طرف سما في الأربعاء أغسطس 15, 2007 5:19 pm

الف شكر اخي جاد الكود جميل

سما
عضو نشط
عضو نشط

عدد الرسائل : 12
تاريخ التسجيل : 15/08/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تشغيل ملف بوربوينت عبر فيجول بيسك

مُساهمة من طرف هنا2 في الجمعة أكتوبر 23, 2009 11:19 pm

اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه وتم استخدام كلمه غير لائقهاته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
واهلى امين
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..
ارجو اعادة الشرح بالصور

أولا قم بعمل رفرنس للكائن


'microsoft PowerPoint xx


'وذلك من قائمة project>refrans


' اي رقم الإصدار xx ونقصد ب


Private Sub Command1_Click()
'الكود التالي لتعريف كائن بوربوينت جديد
Dim PwrPnt As PowerPoint.Application
Set PwrPnt = New PowerPoint.Application
PwrPnt.Activate
PwrPnt.Presentations.Open (App.Path & "test.pps")
End Sub

هنا2
عضو جديد
عضو جديد

عدد الرسائل : 1
تاريخ التسجيل : 23/10/2009

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى