[الاستاذ خليل]

شكرا استاذ بس يوجد خطأ بالكود

 ShockwaveFlash1.Movie = Application.ActivePresentation.Path & "\ c.exe.swf"

سببه
النص

 "\ c.exe.swf"

لانك وضغت مسافة بين \ و للحرف c الذي هو اسم الملف
و اخطأت ايضا بالباقي لان كاتب نوعية الملف exe و هو swf

التصحيح هو التالي

ShockwaveFlash1.Movie = Application.ActivePresentation.Path & "\c.swf"

و شكرا لك محاولة طيبة