البور بونت

أولا عليك إدراج مرجع للبوربوينت

إذهب إلى Project==== Reference

ثم اخنر Microsoft Power Point Object Library من القائمة وضع علامة صح أمامها

Private Sub Command1_Click()
Dim PwrPnt As PowerPoint.Application
Set PwrPnt = New PowerPoint.Application

PwrPnt.Activate
PwrPnt.Presentations.Open (App.Path & "\my project.ppt")
End Sub

مشكور اخى

لا استطيع ان اجد microsoft power point object library :s

يلزم أن يكون لديك برنامج الـ Power Point لكي يتم إضافة المكتبة

والتي ستجدها على المسار

c:\Program Files\Microsoft Office\Office10\MSPPT.OLB

بالتوفيق

هل يمكن استدعائها على الفورم نفسة

مشكووووووووووووووووووووووور

سلام

مشكور و لكن عندي مشكلة هي إنه عندما يتم الضغط على الزر يفتح برنامج البور بوينت و لكن ما أريده أنا هو برنامج تطبيقي يظهر الشرائح فقط

فهل لديك أدنى فكرة عن هذا

و مشكووووووووووووووووووووووووور

سلام

أخي هل من الممكن أن تكتب لي شفرة استخدام ملف وورد عند إتباع نفس الطريقة

فعلاً الكود يعمل بشكل صحيح أخي الكريم بن ملعاط

أنا من زمان أدور هذا الكود

لكن عندي سؤال بسيط ولو الملف Power Point مغلق بكلمة مرور ممكن تشغيله

ولو تكرمت تضيف لنا هذا الكود جزاك الله خير

شرح.rar

اخى الفاضل......

اذا كنت تريد عرض مشروع باوربوينت فبامكانك ربط المشروع بالفيجوال عن طريق الاداة OLE ثم كتابة هذا الكود

Private Sub Form_Load()
Ole1.Action=7
End Sub

اتمنى ان يكون هذا مبتغاك :rolleyes:

لا أخي ghost2010

أقصد لو أن ملف البوربوينت مغلق بكلمة مرور و وأريد فتحه من الفيجوال بيسيك مع العلم أن كلمة المرور معروفة

يا ريت يا جماعة حد يحاول يضع لنا الكود

:angry: :angry: :angry: :angry:

:( :( :( :( :(