اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

استفدت من بعض مشاركات الاعضاء فى استخدام لغه الفجوال بيزك فى البوربوينت

وسؤالى هو:

صممت شريحه بها عمليه حسابيه بسيطه 7+8

وضعت مربع Textbox

ووضعت زر امر يختبر اجابه الطالب اذا كانت الاجابه 15 يعطى رساله msgbox اجابه صحيحة ، واذا كانت ااجابه خطأ يعطى رساله "اجابه خطأ"

والكود يعمل بنجاح

سؤالى هو لكتابه هذا الكود فى ماكرو :

نفذت الاتى

tools -macro -macos

- كتبت اسم الماكرو "test_if" - creat

وكتبت نفس الكود

If Val(TextBox1.Text) = "15 " Then

s = MsgBox("اجابه صحيحة")

Else

s1 = MsgBox("اجابه خطأ حاول مره اخرى")

End If

ثم رسمت شكل دائره ثم ربط الضغط على شكل الدائرة بتنفيذ الماكرو السابق بتنفيذ الآتى :

Slide show – action setting-

“test_if”اخترت Run macro :Ok

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

ولكن عند الضغط على شكل الدائره فلا شئ يظهر ؟؟؟؟؟

لماذا لا يتم تنفيذ الماكرو

حيث اننى اريد التنفيذ عن طريق الضغط على شكل الدائره لتنفيذ الماكرو بدلا من الضغط على زر الامر

اسف على الاطاله لكنى كتبت الخطوات حتى تكون الفكره واضحه

لتوضيح الفكره اكثر الملف فى المرفقات

تم تعديل بواسطه ahmfasil2009
  • 4 weeks later...
  • 2 weeks later...
  • 3 weeks later...
قام بنشر

عزيزى

khhanna

اشكرك على الرد

ولكن مازلات المشكله قائمه فعند الضغط على زر الامر (على شكل مربع ) يتم تنفيذ الكود

اما بالضغط على شكل الدائره التى بها نفس الكود فإن الكود لا يعمل بالرغم من اعدادات الامان متوسطه

ياريت يا اخوانى من يعرف الجواب يفيدنى

  • 1 month later...
قام بنشر

اخي الحبيب

السلام عليكم

أناواجهت نفس المشكلة تماما ولكن حليتها ولله الحمد

الحل

من نفس برنامج بوربوينت وهو شغال في الوضع العادي اختر أدوات ومنها خيارات ومنها الأمان

وفي أمان الماكرو اضغط أمان الماكرو ستظهر لك شاشة تحتوي على مستويين هما مستوى الأمان ومصادر موثوقه

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

اعمل تسييف للملف ثم اغلقه واعد تشغيله من جديد واعمل عرض وستجد انه يعمل تمام

ارجو الرد

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information