عندي مشكله في تشغيل البوربوينت باستخدام الفيجول بيسك 6
استخدمت هذا الكود
Private Sub Command1_Click() Dim PwrPnt As PowerPoint.Application Set PwrPnt = New PowerPoint.Application PwrPnt.Activate PwrPnt.Presentations.Open (App.Path & "\a.pps") End Sub
لكن طلع معي run time error
power point could not open the file
ملاحظه
انا حاطه ملف البوربوينت مع ملف البرنامج
