السلام عليكم ورحمة الله وبركاته وبعد
اتمنى منكم المساعده
عندي برنامج فجوال بيسك 6 واريد كود يفتح لي ملف عرض باوربوينت بامتداد .pps علما انه يعمل عندي المثال ولكن لابد من فتح برنامج الباوربوينت
وهذا مثال لفتح العرض عن طريق فتح برنامج الباور بوينت
Private Sub Command1_Click()
Dim PwrPnt As PowerPoint.Application
Set PwrPnt = New PowerPoint.Application
PwrPnt.Activate
PwrPnt.Presentations.Open (App.Path & "\Safety.pps")
End Sub
اذا كان بالامكان المساعده فلكم الشكر
محب الجميع ابو روان
مرحبا اخي ابو روان .. سعدنا بوجودك معنا بين اخوانك في منتديات الفريق العربي للبرمجة
يمكن زيارة هذا الرابط .. تحياتي
الله يكثر خيرك ويوفقك
اولا شكرا لاهتمامك بالموضوع والرد عليه
ثانيا لو لاحظت اخي انني وضعت مثال لفتح العرض بواسطة والمثال المرفق في الرابط الذي سجلت يفتح الباور بوينت قبل فتح الملف
اللي اريد ان افتح ملف العرض وانهيه دون ان افتح برنامج الباور بوينت
لكم كل الحب
محب الجميع ابو روان
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…