شكرا استاذ بس يوجد خطأ بالكود
كود:
ShockwaveFlash1.Movie = Application.ActivePresentation.Path & "\ c.exe.swf"
سببه
النص
لانك وضغت مسافة بين \ و للحرف c الذي هو اسم الملف
و اخطأت ايضا بالباقي لان كاتب نوعية الملف exe و هو swf
التصحيح هو التالي
كود:
ShockwaveFlash1.Movie = Application.ActivePresentation.Path & "\c.swf"
و شكرا لك محاولة طيبة