Excelワークシートからビデオファイルを再生するにはどうすればよいですか？

ワークシートからビデオファイルを再生しようとしたことはありますか？この記事では、コンピュータに保存されているビデオファイルをExcelワークブックから再生するための興味深いトリックについて説明します。

Windows Media Playerのプロパティを設定してワークシートからビデオファイルを再生する

コマンドボタンをクリックしてワークシートからビデオファイルを再生する

Windows Media Playerのプロパティを設定してワークシートからビデオファイルを再生する

Excelには、役立つコントロールがあります - Windows Media Playを使用すると、ビデオファイルを再生できます。以下の手順に従ってください：

1. 開発 > 挿入 > その他のコントロールをクリックしてください。スクリーンショットをご覧ください：

2. 「その他のコントロール」ダイアログボックスで、スクロールして「Windows Media Player」オプションを選択し、「 OK」ボタンをクリックしてダイアログを閉じます。その後、マウスをドラッグしてWindows Media Playオブジェクトを描画します。スクリーンショットをご覧ください：

3. 次に、開発 > プロパティをクリックして「プロパティ」ダイアログを開き、「プロパティ」ダイアログで次の操作を行ってください：

(1.) 「 アルファベット順」タブで、fullScreenフィールドから「はい」オプションを選択してください；

(2.) 動画ファイルパス（拡張子を含む）をコピーして URLフィールドに貼り付けてください。

4. 上記の設定が完了したら、デザインモードを終了してください。これで指定したビデオが再生されます。

コマンドボタンをクリックしてワークシートからビデオファイルを再生する

コマンドボタンを使ってビデオファイルを再生したい場合、コマンドボタンをクリックすると参照ウィンドウがポップアップ表示され、再生したいビデオファイルを選択できます。次の手順がお役に立つかもしれません：

1. 方法1のステップ1-2に従ってWindows Media Playerコントロールを挿入し、次に開発 > 挿入 > コマンドボタンをクリックしてコマンドボタンを挿入します。スクリーンショットをご覧ください：

2. 次にコマンドボタンを右クリックし、コンテキストメニューから「プロパティ」を選択します。「プロパティ」ダイアログボックスがポップアップ表示されたら、「アルファベット順」タブの下にあるCaptionフィールドの横に「Play Video」というテキストを入力します。スクリーンショットをご覧ください：

3. そして「プロパティ」ダイアログを閉じ、コマンドボタンをダブルクリックして、次のVBAコードをコピーして貼り付け、元のコードを Microsoft Visual Basic for Applicationsウィンドウ内のコードと置き換えます。

VBAコード：ワークシートからビデオファイルを再生する：

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. その後、コードウィンドウを保存して閉じ、デザインモードを終了します。これで、コマンドボタンをクリックすると、参照ウィンドウが表示され、再生したいビデオファイルを選択するように促されます。「 開く」ボタンをクリックすると、指定されたビデオファイルがすぐに再生されます。スクリーンショットをご覧ください：

関連記事：

ExcelワークシートにYouTubeビデオを挿入または埋め込むにはどうすればよいですか？