[SIZE=5]حيث a  هو رقم الصورة و[/SIZE]   [CENTER][SIZE=5] ".jpg" [/SIZE]
[SIZE=5] هو تنسيق الصورة من النوع jpg .


"\imges\"  هو المجلد الذي فيه الصور

بعد ذلك تضع كود يوقف البرنامج فترة زمنية و( مثل كود يؤخر النتيجة    استعملناه سابقا) ثم يرجعك للاعلى مرة اخرى الامر المسؤول عن ذلك هو الامر    go to
ليكون الكود كالتالي :[/SIZE]


حيثImage1 اسم الصورة

Picture الخاصية التي نريد تغييرها و هي الصورة

LoadPicture تعني احضر صورة التي مسارها بداخل القوسين.

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




	
كود:
	
	
[SIZE=5]Image1.Picture = LoadPicture(Application.ActivePresentation.Path + "\imges\" & a & ".jpg")[/SIZE]

[SIZE=5]10   هنا تضع كود يضهر الصورة  GoTo 10[/SIZE]

[SIZE=5]حيث بأعلى كود ابدا تقول له السطر هذا رقم 10
و تحته تكتب كود الذي يضهر الصورة لكي يتنفذ
و بعده كود الذي يوقف الصورة زمن معين
و بعده كود يذهب للسطر رقم 10 .

و لا تنسى اعطاء شرط تحت  رقم 10
يقوم اذا وصلت قيمة الصورة الى اخر رقم للصور يعتبر الصورة قيمتها 0 اي    المتغير قيمته صفر لكي يتم اعادة الصور مرة اخرى و لا يحسب اكثر من الصور    الموجودة

ملاحظة يجب ان تكون اصور بتنسيق معين اي jpg او gif  و عدم الخلط بين نوعين[/SIZE]