ربط البوربوينت بالفيجول

كيف يمكن ربط ملف باور بوينت بالفجوال بيزك

هل الجهاز الاخر يحوي بور بوينت

بسم الله

طيب ممكن نعرف ايه الخطأ اللي بيحصل او كيف يتوقف التشغيل

يعني هل في رسالة Run time error ولا ايه

علشان نعرف نحدد الخطأ

ايه فيه بور بوينت

البرنامج يشتغل وكل شي اووكي بس اذا ضغطت على البور بوينت عشان يعرض

تظهر رساله

sestem erroe &h800401ea

ماعندكم حل بليز لازم اسلم المشروع اليووم تكفوون حاولو :( :wacko: :blink: :unsure: :(

هل راجعت الحلول في الرابط السابق

ما هو الكود المستخدم لفتح الملف

الأخ الفاضل ...

غالباً سبب الخطأ هو ان البرنامج غير قادر على العثور على ملف الـ Power point، وهذا قد يكون سببه عدة احتمالات اهمها:

تم تحديد المسار كامل لملف البوربوينت فى البرنامج، وبالطبع هيختلف فى الجهاز الأخر، والأفضل بدل ما تكتب الملف بالشكل (أو شيئ مماثل):

	Filename = "C:\prog\myproj\vb\poerpt\test.ppt"

اكتيه relative بالشكل:

	Filename = App.Path & "\test.ppt"

وتأكد من نسخ ملف الـPower point فى نفس مجلد البرنامج، أو ارفق البرنامج لمراجعتة

شكراً

نفس ما قال خوي Eng. Usama El-Mokadem

الجهاز الاخر يحوي بوروينت ؟

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

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

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

Private Sub Command5_Click()

Dim pPoint As PowerPoint.Application

Dim dPoint As PowerPoint.Presentation

Set pPoint = New PowerPoint.Application

pPoint.Visible = True

Set dPoint = pPoint.Presentations.Open("C:\lectura\ppt\nouveau.pps")

End Sub

ارجو ارفاق السورس الكود للمشروع لحل المشكلة

مبدئياً تأكد من وجود هذا المسار عند المستخدم الاخر

C:\lectura\ppt\nouveau.pps

kindy_ibrahim كتب:

ارجو ارفاق السورس الكود للمشروع لحل المشكلة

مبدئياً تأكد من وجود هذا المسار عند المستخدم الاخر

C:\lectura\ppt\nouveau.pps

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

أخي السيد إبراهيم، الظاهر أن المشكلة في المسار فعلا، فالمستخدم الآخر بطبيعة الحال لا يتوفر على نفس المسار

المرجو مدي بالكود الصحيح حتى يتسنى للجميع فتح الملف بدون مشاكل

المشروع عبارة عن عمل يهم أحد المواد الدراسية (اللغة الفرنسية ) حيث عملت زرا وربطته بملف بوير بونت قصد شرح الكلمات الصعبة الواردة في النص المزمع دراسته.

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

ولكم جزيل الشكر

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

أخي السيد إبراهيم، الظاهر أن المشكلة في المسار فعلا، فالمستخدم الآخر بطبيعة الحال لا يتوفر على نفس المسار

المرجو مدي بالكود الصحيح حتى يتسنى للجميع فتح الملف بدون مشاكل

المشروع عبارة عن عمل يهم أحد المواد الدراسية (اللغة الفرنسية ) حيث عملت زرا وربطته بملف بوير بونت قصد شرح الكلمات الصعبة الواردة في النص المزمع دراسته.

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

ولكم جزيل الشكر

عزيزي يمكنك ارفاق الملف التعليمي في نفس مشروع البرنامج

يعني هتحط الملف البوربوينت في المشروع بتاعك والتالي سيكون متوفر علي القرص المرن ايضاً