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

أولاً اختر المكتبة Power Point 11.0 Obeject Library

من قائمة Project ===> References

وبعد ذلك شغل الملف الذي تريده عن طريق

زر أمر .

وضع الكود في خدث النقر :

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

اخي COMFORT دائما مبدع

هذه المكتبة ليست موجودة عندي فارجو ان تضعها في المنتدي

أشكرك أخي professional VB99

أخي yasserstars

تفضل هذه هي المكتبة مرفقة

هناك ملاحظة للأخ yasserstars

امتداد ملف الـ Power Point اثنين

ppt إذا كان مشروع عادي

pps إذا مشروع Show

أين المكتبة ؟

بالمقابل

كيف أشغل ملف الWord دون أن يكون برنامج Word مثبت علي الجهاز , وبدون استخدام الاداة ole

بصراحة أنا لم أجرب هذا

ولم أتعامل مع Word من الفيجوال بيسيك من قبل .

آسف أخي الكريم

نسيت أن أرفق الملف .

MSPPT.zip

أخي comfort أشكرك علي ارسالك للمكتبة و لكني لي سؤالين أخرين

الأول :- لقد أضفت المكتبة التي ارسلته وجد ان البرنامج فيه خطأ فقد غيرت المكتبة باصدار سابق لها من داخل ال power point و هو الاصدار رقم 10 و أعطي خطأ أخر و هو active x commponints object

فما هو الخطأ؟

السؤال الثاني :-

لقد ذكرت أن power point نوعان و هما .ppt , pps و انا لا أعرف الا ppt

فكيف عمل ملف من نوع pps و ما الفرق بين النوعين و لو بشي من التوضيح

بعد أن أنتهيت من مشروع

بالفيجوال بيسيك مثلاً إلى آخره

فإنك تقوم بعمل ملف تنفيذي له . EXE

وايضاً الـ Power Point كذلك

فـ PPT هو امتداد ملفات مشروع الـ Power Point

وأما PPS فهو بمثابة EXE

وكيفية عمله بسيطة

من قائمة "ملف" ===> "File "

حفظ باسم ====> "Save As "

الخطوات :

1. اختر مسار الملف الذي تريد أن تحفظ فيه .

2. أكتب أسم الملف .

3. حفظ بنوع "Power Point Show"

و الصورة المرفقة توضح .

أشكرك اخي comfort علي هذه المساعدات و أرجو أن لا تمل من كثرة أسئلتي و لكن هذا الموضوع أعتقد انه مهم للجميع

فقد قمت بعمل ملف power point بامتداد pps و قد جربت البرنامج فوجد أن البرنامج يعطي رسالة خطا هي :

run time error 429 :

Active X component cant create object

و يقوم بتظيل هذا الكود

Set PwrPnt = PowerPoint.Application

فأرجو منك اذا كنت تستطيع افادتنا أكثر حول الموضوع و بشي من التفصيل

و اذا كان لديك مشروع جاهز الأن أرجو أن تضيفة حتي نستفيد من قدراتك

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

الكود كله في زر الأمر .

أعتقد أنك وضعته في قسم التصريحات . :rolleyes:

لكى تعمل هذه المكتية لبد و أن يكون لديك MICROSOFT POWER POINT VIWER

لان هذه المكتبات سوف تكون ناقصة فقط قم بتنزيل البرنامج و سوف يعمل

اخي comfort انا وضعت الأكواد في حدث الفورم لود

و الأخ neo قال انه يجب تثبيت power point لكي يعمل البرنامج بشكل سليم

فانت عندما تسلم برنامج لا تقول لصاحبة يجب تثبيت برنامج معين مثل power point و اعتقد انني ذكرت في بداية الموضوع انن اريد البرنامج يعمل بدون ان أكون مثبت برنامج power point اي اصدار

اسهل طريقة استخدام الدالة Shell لأن استخدام مكتبة PowerPoint يعيبه العمل مع اصداره معينه فقط من المكتبة ،، خصوصا ان الاصدار القادم من Office سيكون مختلفا كليا عن اي اصدار سابق ...

بصراحة لم أكن أعلم أنه يجب تثبيت الـ "Power Point "

واعتقدت أنه عن طريق الكود يمكن أن تشتغل .

على العموم انا قدمت ما عندي .

تحياتي :rolleyes:

أشكرك أخي comfort علي الرد و ارجو ان وجت جديد في هذا الموضوع ان تضيفة الينا في المنتدي

كنت أسأل نفس السؤال أخي الكريم yasserstars وهو

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

ولكني لم تخطر على بالي فكرتك أن يكون

البوربوينت غير مثبت على الجهاز .

وهي الطريقة الأصح لأنه ليس من المفترض أن يكون

لدى المستخدم برامج معينة مثبتة على الجهاز كي يعمل البرنامج .

أرجو ممن لديه الفكرة أن يقدمها لنا .

لأني أيضاً مجهز سؤال (( بخصوص البوربوينت ))

كنت وضعت له موضوع كامل ولكن لم ينال ولا رد .

اخي العزيز

في برنامج بوربوينت تجد ميزة معالج الحزم والذهاب ، من قائمة ملف ، وهو يشبه معالج التحزيم في فيجوال بيسك .. وهناك تجد خيار تحميل مشغل عروض بوربوينت .. وميزة هذا الامر هو عرض عروض بوربوينت بدون وجود بوربوينت في الجهاز الذيسيتم العرض فيه .. تمام ؟؟

بهذا الشكل يجب عليك تحميل هذا المشغل وتحزيمه مع برنامجك وبالتالي تضمن تشغيل العرض حتى لو لم يكن هناك برنامج بوربوينت في الجهاز المعروض فيه

تحياتي