الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

(إستفسار) كيف يتم فتح عرض تقديمي داخل برنامج الباور بوينت من خلال الفيجول بيسك للقيام بتحريره؟؟

مغلق
بدأه بنت الإسلام في 28 أبريل 2007 · 11 رد · 2,335 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

اعلم يقيناً اني ازعجتكم بتساؤلاتي ..ولكن عزائي في ذلك كرمكم وان يكون هناك حل لكل مشكلة تواجه المبرمجين عموما والمبتدئين خاصة

إستفساري كما يلي:

لدي برنامج فيجوال يقوم بعرض باور بوينت بصيغة pps من خلال أداة الـ ole ، ولاحظت اثناء تنفيذ البرنامج وتشغيل هذا العرض ،وبعد اغلاق العرض

والعودة الى نفس الفورم التي تحتوي على اداة ole عندما انقر بالزر الايمن للماوس على اداة الـ ole تظهر قائمة تحوي(إظهار،تحرير)

عند الضغط على امر تحرير يفتح لي عرض الباور بوينت السابق من داخل برنامج الباور بوينت .

أنا أريد أن أستفيد من هذه الخاصية وتنفيذها برمجياً بحيث يكون هناك command بعنوان تعديل العرض الحالي ، وعند النقر عليه يتم فتح هذا

العرض من داخل برنامج باور بوينت بحيث يتيح لمستخدم البرنامج التعديل على العرض الاصلي ومن ثم يقوم بحفظ التعديلات من داخل برنامج الباوربوينت

ثم حفظ الملف بصيغة pps ..

أي مايهمني حالياً : عند النقر على زر: تعديل العرض الحالي ، يفتح لي العرض من داخل برنامج الباور بوينت وليس عرض الشرائح ،،،،

فهل يمكنني ذلك ؟؟؟

#2

من خلال ردود الاعضاء الكرام في مواضيع سابقة مشابهة

توصلت ولله الحمد والشكر الى حل جيد وسأعتمده حالياً بشكل مبدئي بعد تحميل مكتبة الباور بوينت وهو كما يلي:

Dim PwrPnt As PowerPoint.Application
Set PwrPnt = New PowerPoint.Application
PwrPnt.Activate
PwrPnt.Presentations.Open (App.Path & "\pre\" & p_name & ".ppt")

ولكـن ماأسعى اليه حاليا هو الاستغناء عن اصول العروض التقديمية بصيغة ppt ، وانما فتح العرض التقديمي

بصيغة pps من داخل برنامج الباور بوينت من خلال الفيجول كما يحدث من خلال تنفيذ امر تحرير في القائمة اليمنى

هل ياترى مرادي واضح ومفهوم؟

#3

مع اني محاولتش عمل هذا من قبل بس جربتي

Dim PwrPnt As PowerPoint.Application
Set PwrPnt = New PowerPoint.Application
PwrPnt.Activate
PwrPnt.Presentations.Open (App.Path & "\pre\" & p_name & ".pps")

تم تعديل هذه المشاركة بواسطة kindy_ibrahim في 29 أبريل 2007 في 00:29

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#4

نعم اخي kindy_ibrahim

جربت امتداد ملف العرض بصيغة pps حيث يقوم بإجراء عرض الشرائح

ولكني اريد تشغيله داخل برنامج الباور بوينت كما لوكنت اشتغل بالملف الاصلي

وجزااااك الله كل خير وأسأله بأسمه الأعظم أن يغفر لك ذنوبك ويرزقك من حيث لاتحتسب ويدخلك جنة الفردوس بإذنه

#5

للرفع إذا سمحتم

#6

طالما أن عندك مسار الملف و الـ Power point منصب على الجهاز مجرد أنك تفتحى الملف بدالة Shellexecute

تم تعديل هذه المشاركة بواسطة msayed2004 في 29 أبريل 2007 في 19:28

#7

المشكلة مازالت موجودة

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#8

توضيح هام للمشكلة

الاخت العزيزة ارادة عند فتح ملف من نوع *.pps يفتح للتعديل بواسطة البوربوينت وليس كعرض للشرائح

توضيح 2

يمكنك عمل هذا من داخل البوربوينت كالتالي

قائمة ملف >>> فتح

او

File >>> Open

ثم تختار الملف من نوع *.pps وليس *.ppt

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#9

بمعني اصح عايزين نمرر ميار الملف للقيمة الموجودة بداخل

قائمة ملف >>> فتح

او

File >>> Open

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#10

أتمنى أن يكون هذا هو المطلوب :

PPS.rar

#11

نعم اخي msayed2004 هذا هو المطلوب فعلاً

تم تطبيقه بنجاح ،جزاك الله كل خير

ولكن اخي الكريم لاحظت انك لم تجلب Shellexecute من المكتبة يبدو انك تفضل استخدام أكواد الـ APIS

أسأل الله بإسمه الأعظم أن يبارك لك في علمك ويزيدك من فضله

ولكن هل لي ان اعمل ذلك عن طريق تحميل المكتبة لإختصار سطور الاكواد ؟؟

واشكرك اخي kindy_ibrahim على متابعتك وتوضيحك جزاك الله خيراً

#12
اقتباس
ولكن اخي الكريم لاحظت انك لم تجلب Shellexecute من المكتبة يبدو انك تفضل استخدام أكواد الـ APIS

تتبعى الكود و هتلاقينى استعملتها , تتبعى وظيفة ShellAnyFile

اقتباس
ولكن هل لي ان اعمل ذلك عن طريق تحميل المكتبة لإختصار سطور الاكواد ؟؟

مش فاهم قصدك !

تعديل : للتوضيح أضغطى Right Click على كلمة ShellAnyFile ثم أختارى Definition أو أضغطى D

تم تعديل هذه المشاركة بواسطة msayed2004 في 29 أبريل 2007 في 22:20

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…