كيفية تشغيل ملف فيديو من ورقة عمل Excel؟

هل سبق لك أن حاولت تشغيل ملف فيديو من ورقة العمل؟ في هذه المقالة، سأتحدث عن بعض الحيل المثيرة للاهتمام لمساعدتك على تشغيل ملف فيديو مخزن في جهاز الكمبيوتر الخاص بك من خلال مصنف Excel.

تشغيل ملف فيديو من ورقة العمل عن طريق تعيين خصائص Windows Media Player

تشغيل ملف فيديو من ورقة العمل بالنقر على زر أمر

تشغيل ملف فيديو من ورقة العمل عن طريق تعيين خصائص Windows Media Player

في Excel، يوجد عنصر تحكم مفيد - Windows Media Play يمكنه مساعدتك في تشغيل ملف فيديو، يرجى اتباع الخطوات التالية:

1. انقر فوق Developer > Insert > More Controls، انظر إلى لقطة الشاشة:

2. في مربع الحوار More Controls، قم بالتمرير واختيار خيار Windows Media Player، ثم انقر فوق زر OK لإغلاق مربع الحوار، وبعد ذلك اسحب الماوس لرسم كائن Windows Media Play، انظر إلى لقطة الشاشة:

3. بعد ذلك، انتقل إلى مربع الحوار Properties عن طريق النقر فوق Developer > Properties، في مربع الحوار Properties، يرجى القيام بالعمليات التالية:

(1.) في علامة التبويب Alphabetic، يرجى اختيار الخيار True من حقل fullScreen؛

(2.) نسخ ولصق مسار ملف الفيديو الخاص بك والذي يجب أن يتضمن امتداد الملف في حقل URL.

4. بعد الانتهاء من الإعدادات أعلاه، يرجى الخروج من وضع التصميم، وسيتم الآن تشغيل الفيديو المحدد الخاص بك.

تشغيل ملف فيديو من ورقة العمل بالنقر على زر أمر

إذا كنت ترغب في تشغيل ملف فيديو باستخدام زر أمر، عند النقر فوق زر الأمر، ستظهر نافذة تصفح لتتيح لك اختيار ملف الفيديو للتشغيل. قد تساعدك الخطوات التالية:

1. وفقًا للخطوتين 1-2 في الطريقة الأولى لإدراج عنصر التحكم Windows Media Player، وبعد ذلك استمر في النقر فوق Developer > Insert > Command Button لإدراج زر أمر، انظر إلى لقطة الشاشة:

2. بعد ذلك، انقر بزر الماوس الأيمن على زر الأمر، واختر Properties من قائمة السياق، في مربع الحوار Properties الذي ظهر، اكتب النص Play Video بجانب حقل Caption تحت علامة التبويب Alphabetic، انظر إلى لقطة الشاشة:

3. وبعد ذلك، أغلق مربع الحوار Properties، ثم انقر نقرًا مزدوجًا على زر الأمر، وبعد ذلك انسخ والصق الكود VBA التالي لتحل محل الكود الأصلي في نافذة Microsoft Visual Basic for Applications.

VBA code: تشغيل ملف فيديو من ورقة العمل:

Private Sub CommandButton1_Click()
    Dim FName As Variant
    FName = Application.GetOpenFilename(FileFilter:="Video Files, *.mp4; *.avi; *.mpeg; *.mts", Title:="Please select a Video File", MultiSelect:=False)
    If FName <> False Then
        WindowsMediaPlayer1.Url = FName
    End If
End Sub

ملاحظة: في الكود أعلاه، CommandButton1 هو اسم زر الأمر الذي قمت بإدراجه، وWindowsMediaPlayer1 هو اسم Windows Media Player الذي قمت بإدراجه. ويمكنك إضافة امتدادات ملفات فيديو أخرى حسب الحاجة إلى البرنامج النصي *.mp4; *.avi; *.mpeg; *.mts .

4. بعد ذلك، احفظ وأغلق نافذة الكود، وقم بالخروج من وضع التصميم، الآن، عند النقر فوق زر الأمر، ستظهر نافذة تصفح لتذكيرك باختيار ملف الفيديو الذي تريد تشغيله، ثم انقر فوق زر Open، سيتم تشغيل ملف الفيديو المحدد فورًا. انظر إلى لقطة الشاشة:

المقالة ذات الصلة:

كيفية إدراج أو تضمين فيديو YouTube في ورقة عمل Excel؟